PRINT

[Nova980]

Thanks in advance,

I'd like to print only the first 25 characters of a 40 character line from error.log/@lines.

 if (@lines) {
   open FILE_LOG, ">", "error.log" or die $!;
   print FILE_LOG @lines;
}

How can I output only the first 25 characters (redundant).

Happy 4th of June

 

[Kirsle]

Use substr.

if (@lines) {
   open FILE_LOG, ">", "error.log" or die $!;
   for (@lines) {
      print FILE_LOG substr($_,0,25), "\n";
   }
}

http://perldoc.perl.org/functions/substr.html

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'