Help for this page

Select Code to Download


  1. or download this
    my_open( FH, ">", "foo.bar" ) or die "foo.bar: $!";

...
    my ( $fh, $mode, $name ) = @_;
    open( $fh, $mode, $name );
}
  2. or download this
    use GreekFile qw/gr_open gr_opendir gr_readdir gr_glob/;
         # or just the relevant subset of these functions
  3. or download this
    package GreekFile;

...
    from_to( $_, "cp1253", "utf8" ) for ( @names );
    return @names;
}