Help for this page

Select Code to Download


  1. or download this
    $line = $array_value;<br>
$_ = $line;<br>
/^(.?)\n/;<br>
print $1.$2.$3."\n";<br>
  2. or download this
    $line =~ tr/\015//;<br>
$line =~ tr/\n//;<br>
$line =~ tr/\r//;<br>