Help for this page

Select Code to Download


  1. or download this
    ...## get $fh from somewhere (eg.open)
my $last = '';
...
    $last = $_;
}
...
  2. or download this
    perl -ne"($last.$_)=~m[cpuinfo\nvendor_id\s+:\s(.*?)\n]&&print qq[CPU:
+$1]&&exit;$last=$_" yourfile