Help for this page

Select Code to Download


  1. or download this
    my @db_values = split (/,/,$entry);
next unless ( @db_values == 7 );  ## add this line
$DB->sql("INSERT INTO Files ... ");
  2. or download this
    steve@kirk:~$ perl -wle'push @foo, undef for (0..6); print scalar @foo
+'
7
  3. or download this
    steve@kirk:~$ perl -wle'open FOO, undef || die "FOO! $!";'
Name "main::FOO" used only once: possible typo at -e line 1.
...
steve@kirk:~$ perl -Mstrict -wle'open FOO, undef || die "FOO! $!";'
Name "main::FOO" used only once: possible typo at -e line 1.
FOO! Bad file descriptor at -e line 1.