Help for this page

Select Code to Download


  1. or download this
    while (!eof(IN) ) {
$_ = <IN>;
$DEBUG = 1 if ($_ =~ m/^DEBUG/)
  2. or download this
    while (<IN>) {
    $DEBUG = 1 if /^DEBUG/;
  3. or download this
    use Scalar::Util qw( looks_like_number );
...
        if (looks_like_number($_) && ($_ > 0)) {
  4. or download this
    if ($timings{$item}{STATUS} != '2') {
  5. or download this
    if ($timings{$item}{STATUS} ne '2') {
  6. or download this
    if ($timings{$item}{STATUS} != 2) {
  7. or download this
    for (;;) {

...
}

close $log or die "Cannot close file '$log_file': $!";