Re: Conditional creation of files - global or scoped filehandle


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: Conditional creation of files - global or scoped filehandle

by Anonymous Monk

on May 06, 2016 at 10:13 UTC ( [id://1162343]=note: print w/replies, xml )

Need Help??

in reply to Conditional creation of files - global or scoped filehandle

sure, its called functions

Main( @ARGV );
exit( 0 );
sub Main {
    my( $command, @args ) = @_;
    my %commands = ( example => \&Example, help => \&Help );
    my $action = $commands{lc $command} || \&Help;
    $action->( @args );
}
sub Example {
    my( $infile, $outfile ) = @_;
    use autodie;
    open my $out, '>', $outfile ;
    ...
}
[download]

As you can see everything the Example option would do is done in a sub/function called Example