my $input = do { binmode STDIN; local $/; <STDIN>; };
Also,
use Path::Tiny qw/ path /; use Data::Dump qw/ dd /; my $input = path( 'input' )->slurp_raw ; my $output = Net::CIDR::cidr2octets( $input ); path( 'output')->spew_raw( $output ); dd( $input, $output ); ## for debugging/SOPW :)
In reply to Re: Redirection problem / question
by Anonymous Monk
in thread Redirection problem / question
by taint
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |