Help for this page

Select Code to Download


  1. or download this
    use Config::IniFiles;

...
print $filename,$/;
__END__
060520.1200foobar.dat
  2. or download this
    eval "\$filename =~ $regex";
die $@ if $@;
  3. or download this
    sub makesub {
    # my ($client, $regex) = @_; update: wrong, we have 1 param
...
    die $@ if $@;
    return $sub;
}
  4. or download this
    $hash{$client} = makesub($regex);
$hash{$client}->($filename); # $filename changed