Snippet Name: Opening a file
Description: Open a flat file and get the contents into a string variable.
Comment: (none)
Language: PERL
Highlight Mode: PERL
Last Modified: March 05th, 2009
|
#!/usr/bin/perl
# Open a file directly:
CHDIR("/some/path/to/directory");
$fileloc = "somefile.txt";
# Read file into array of lines
OPEN(INPUT,$fileloc);
@textlines = <INPUT>;
CLOSE(INPUT);
#** OR **
# Always go to where the file is...
CHDIR("/some/path/to/directory");
# grab the the file and read it in as a string
OPEN(INPUT, "<$fileloc") || DIE "Error: $0: Cannot open '$file': $!";
UNDEF $/;
$filestring = (<INPUT>);
$/ = "\n";
CLOSE(INPUT);
|
