Align columns: Difference between revisions
Content added Content deleted
(C (one way...)) |
|||
Line 435: | Line 435: | ||
@ARGV == 2 ; #$ARGV[ 0 ] contains example file , $ARGV[1] any of 'left' , 'right' or 'center' |
@ARGV == 2 ; #$ARGV[ 0 ] contains example file , $ARGV[1] any of 'left' , 'right' or 'center' |
||
die "last argument must be one of center, left or right!\n" unless |
die "last argument must be one of center, left or right!\n" unless |
||
$ARGV[ |
$ARGV[ 1 ] =~ /center|left|right/ ; |
||
sub printLines( $$$ ) ; |
sub printLines( $$$ ) ; |
||
open ( INFILE , "<" , "$ARGV[ 0 ]" ) or die "Can't open $ARGV[ 0 ]!\n" ; |
open ( INFILE , "<" , "$ARGV[ 0 ]" ) or die "Can't open $ARGV[ 0 ]!\n" ; |