Help for this page

Select Code to Download


  1. or download this
    if ($curline =~ /^Subject: (.*)$/){
    $curmsg{Subject} = $1;
  2. or download this
    sub checkdir {
    my $directory = shift;
    my $is_directory=(( -e $directory ) && ( -d $directory))?0:1;
    $return $is_directory;
}
  3. or download this
    sub printhash {
    my $hash = shift;
    for my $key (keys %{$hash}) {
        print "$key : $hash->{$key}\n";
    }
}