Programming Forums > Script Programming > Perl

eggsy · Feb 21st, 2005, 5:28 PM

Hi all suppose I had the following flat text file

lol;laugh out loud (NEWLINE)
m8;mate (NEWLINE)
l8r;later (NEWLINE)

etc

I want to try and put them into an array

EG. @array = split(/;/, <FILE>);

but it only works for the first line, stumbling at the new line character?

Does anyone know if theres a way to strip out all the new line characters from the file???

Sorry if this is a real basic question, Perl newbie here

Thank you all who read this

Eggsy

Mad_guy · Feb 21st, 2005, 5:59 PM

Use the following:

(Toggle Plain Text)

#!/perl/bin
my @words;
open(FILE, "<file.txt") or die("Can't open file.");
while($currentline = <FILE>) {
 chomp($currentline);
 push(@words,$currentline);
}
close(FILE);
foreach $word (@words) {
 print $word." ";
}
print "\n\nDone. Hit RETURN to exit...";
$exit = <STDIN>;

Taa-daa.

mackenga · Mar 24th, 2005, 10:20 AM

You could slurp and split the file, too; to get a list of the lines in a file, you could do:

(Toggle Plain Text)

local $/;
my @lines = split("\n", <IN>);

That 'local $/;' line makes $/, the input record separator, locally undefined so you can 'slurp' the whole file rather than a line at a time.

Feb 21st, 2005, 5:28 PM	#1
eggsy Newbie Join Date: Dec 2004 Posts: 5 Rep Power: 0	Remving new lines from a file [Resolved] Hi all suppose I had the following flat text file lol;laugh out loud (NEWLINE) m8;mate (NEWLINE) l8r;later (NEWLINE) etc I want to try and put them into an array EG. @array = split(/;/, <FILE>); but it only works for the first line, stumbling at the new line character? Does anyone know if theres a way to strip out all the new line characters from the file??? Sorry if this is a real basic question, Perl newbie here Thank you all who read this Eggsy Last edited by eggsy; Feb 22nd, 2005 at 2:33 PM. Reason: Completed

Feb 21st, 2005, 5:59 PM	#2
Mad_guy Hobbyist Programmer Join Date: Oct 2004 Location: Sandstorm, Techno Club Posts: 239 Rep Power: 5	Use the following: (Toggle Plain Text) #!/perl/bin my @words; open(FILE, "<file.txt") or die("Can't open file."); while($currentline = <FILE>) { chomp($currentline); push(@words,$currentline); } close(FILE); foreach $word (@words) { print $word." "; } print "\n\nDone. Hit RETURN to exit..."; $exit = <STDIN>; #!/perl/bin my @words; open(FILE, "<file.txt") or die("Can't open file."); while($currentline = <FILE>) { chomp($currentline); push(@words,$currentline); } close(FILE); foreach $word (@words) { print $word." "; } print "\n\nDone. Hit RETURN to exit..."; $exit = <STDIN>; Taa-daa. Last edited by Mad_guy; Feb 21st, 2005 at 6:02 PM.

Mar 24th, 2005, 10:20 AM	#3
mackenga Professional Programmer Join Date: Mar 2005 Location: Glasgow, Scotland Posts: 318 Rep Power: 4	You could slurp and split the file, too; to get a list of the lines in a file, you could do: (Toggle Plain Text) local $/; my @lines = split("\n", <IN>); local $/; my @lines = split("\n", <IN>); That 'local $/;' line makes $/, the input record separator, locally undefined so you can 'slurp' the whole file rather than a line at a time.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

Remving new lines from a file