PRINT

Nova980 · Jun 4, 2009

Thanks in advance,

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

Code:

 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 · Jun 4, 2009

Use substr.

Code:

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

Cuvou.com | My personal homepage

Code:

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