Opened by krusty at 2007-02-23 11:07
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
chomp entfernt nur, was in $/ steht; wenn die Datei unter Linux Windows-Zeilenenden hat (CR-LF bzw. \r\n), dann passe ich gerne das Zeilenendenzeichen $/ an, z.B.
oder so aehnlich. Hilfreich ist dabei, wenn man das veraenderte $/ nur in einem moeglichst kleinen Block gueltig lassen kann (deshalb das local), damit es nicht unabsichtlich das Lesen anderer Dateien beeinflusst.
Eine meiner Meinung nach bessere Alternative ist, die Datei von Windows aus im ASCII-Modus hochladen zu lassen.\n\n
<!--EDIT|Strat|1172227489-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
unless( open( $FH, "<", $filename ) ) {
die "Error: couldn't open file '$filename': $!\n";
} # unless
else {
local $/ = chr(13) . chr( 10 );
@lines = <$FH>;
close( $FH );
chomp @lines;
} # elseoder so aehnlich. Hilfreich ist dabei, wenn man das veraenderte $/ nur in einem moeglichst kleinen Block gueltig lassen kann (deshalb das local), damit es nicht unabsichtlich das Lesen anderer Dateien beeinflusst.
Eine meiner Meinung nach bessere Alternative ist, die Datei von Windows aus im ASCII-Modus hochladen zu lassen.\n\n
<!--EDIT|Strat|1172227489-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/