Thank you, David. I thought about doing cat but I thought it would have to
be a system call.
Sherman
On Tue, May 7, 2013 at 9:26 PM, David Christensen <dpchr...@holgerdanske.com
> wrote:
> On 05/07/13 11:00, Sherman Willden wrote:
>
>> ... I downloaded the
>>
>> Oreilly Programming Perl Version 4 examples. There are 30 directories
>> with 2211 files. I want each chapter to have a consolidated file with
>> all the examples for that chapter. I created the
>> consolidate_examples.pl script which goes into each directory, reads
>> each file, and then writes the files lines to the
>> consolidated_perl4_examples/<**directory name>. ...
>>
>
> 1. I hope you don't expect the "consolidated file" to be a valid Perl
> program (?)...
>
> 2. Rather than reading/ writing the files programmatically with Perl, why
> not use Perl to invoke "cat" via the backticks operator (e.g. shell script):
>
> $| = 1; # [1] $OUTPUT_AUTOFLUSH
> print `cat * >>foo.out`; # [2] qx//
> if ($? != 0) { # [3] $CHILD_ERROR
> # error handling --
> }
>
> HTH,
>
> David
>
>
>
> References:
>
> [1] http://perldoc.perl.org/**perlvar.html#Variables-**
> related-to-filehandles<http://perldoc.perl.org/perlvar.html#Variables-related-to-filehandles>
>
> [2]
> http://perldoc.perl.org/**perlop.html#Quote-Like-**Operators<http://perldoc.perl.org/perlop.html#Quote-Like-Operators>
>
> [3]
> http://perldoc.perl.org/**perlvar.html#Error-Variables<http://perldoc.perl.org/perlvar.html#Error-Variables>
>
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
