Programming

djfibjbet
etitrbjijbtr rrge     rgjierjegjeri
jerijg
kijij  jijij

djfibjbet
etitrbjijbtr rrge     rgjierjegjeri
jerijg
kijij  jijij
new line

#!/usr/bin/perl
sub io
{
# usage:
# @array  = io('read',$file)
# $string = io('read',$file)
# io('write',$file,\$string)
# io('write',$file,\@array)

my($bit,$file,$data) = @_;

 if($bit eq 'read')
 {
    open IO,"< $file" or die "Cannot open $file for input: $!\n";
    my @file = <IO>;
    close IO;
    return wantarray ? @file :  join '', @file;
 }

 if($bit eq 'write')
 {
 open  IO,"> $file" or die "Cannot open $file for output: $!\n";
 print IO  ref $data eq 'ARRAY' ? @$data : ref $data eq "SCALAR"? $$data : ' ';
 close IO;
 }

}
    $string =`cat test.dat | grep  test`;
    io('write','/home/run/test.log',\ $string);

open  IO,">> $file" or die "Cannot open $file for output: $!\n";

io('write','/home/run/test.log',\ $string);

io('write','/home/run/<$name>test.log',\ $string);

    $string =`cat test.dat | grep  test`;
    $ofile='/home/run/pretest.log';
    io('write',$ofile,\ $string);