Thread perlfaq 5 - slurp
(16 answers)
Opened by Schlumpf at 2009-09-11 10:54
Wenn man den Titel berücksichtig ( How do I change, delete, or insert a line in a file, or append to the beginning of a file? ), könnte es so gemeint sein?
Code (perl): (dl
)
1 2 3 4 5 my @lines = do { local $/; <$in> }; # slurp! my $new_first_line = "My new first line.\n"; unshift @lines, $new_first_line; |