All pastes #762478 Raw Edit

4szymo

public text v1 · immutable
·published 2007-11-05 18:40 UTC
rendered paste body
#!/usr/bin/perl -w

$tab[0]="";
$i=0;
if ($ARGV[0] eq ""  ) {
	while ($_ = <STDIN> ) {
	    if( $_ =~ /^\n/ ) {
		exit; 
    	    }
	$tab[$i] = $_;
	$i++;
	} 	
    }
else 
    {
    open(DATA, $ARGV[0]);
    while($line = <DATA> )
	{
	$tab[$i]=$line;
	$i++;
	}
    close(DATA);
    }

END {
    foreach my $item (@tab) {
    
    }
}