Help for this page

Select Code to Download


  1. or download this
    open my $fh, '+<:utf8', 'file.in.xml' or die $!;
    my $line = <$fh>;
    ...
    seek $fh,0,0 or die $!;
    print $fh $line;
    close $fh;