Re^5: How to read a file containing filenames and pass as input to perl script?

prefix every line in the output pipe separated file

Use unshift to add 'XML' to the front of @values array

sub process_EDI_DC40 {
    my ($twig, $thingy) = @_;

    my @values = map {
        my $ch = $thingy->first_child( $_ );
        $ch ? $ch->text : ""
    } qw( DOCNUM MESTYP SNDPRN RCVPOR RCVPRN );
    
    unshift @values,'XML'; # add
    
    $csv->say(*STDOUT, \@values);
}
[download]

poj

Comment on Re^5: How to read a file containing filenames and pass as input to perl script? Select or Download Code

Replies are listed 'Best First'.
Re^6: How to read a file containing filenames and pass as input to perl script? by Kal87 (Novice) on Apr 23, 2018 at 15:53 UTC
unshift works perfectly, thanks!	[reply]