Help for this page

Select Code to Download


  1. or download this
    if ($line =~ m/\014/) {
  # $line contains a Control-L
}
  2. or download this
    $test = sprintf("%o", ord $_);
if ($test eq "14") {
  ...
}