Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Opening multiple files in directory

by olus (Curate)
on Mar 18, 2009 at 21:58 UTC ( #751583=note: print w/replies, xml ) Need Help??


in reply to Opening multiple files in directory

This works for me. Adjust as convenient.

use strict; use warnings; use Data::Dumper; my $some_dir = "."; opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!"; my @files = grep { /txt/ } readdir(DIR); closedir DIR; foreach my $f (@files) { open IN, "<$f"; my @cmpids = (); while(<IN>) { push @cmpids, $_; } close IN; open OUT, ">>COID_LIST.TXT"; print OUT Dumper(\@cmpids); close OUT; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://751583]
help
Chatterbox?
[makita]: Need to sign more elements but all types I put in array are ignored. And is always signed only the body
[Discipulus]: no makita sorry. i see in the synopsis of the module: "WARNING: Only limited real-life experience" might be better compose a SOPW with some code example and data
[Discipulus]: ..or inspect the source code of the module
[makita]: I am doing this:
[makita]: my $sig = $wss->signature( schema => $wsdl, token => $token, sign_types=>'wsa: Action','wsa:To', 'wsu:Timestamp', 'wsa:MessageID',' SOAP-ENV:Body', signer=>DSIG_RSA_S HA1, public_key => $cert,
[Corion]: Oof, I haven't done much with signing SOAP requests. markov is usually somebody good to ask via mail ;)
[makita]: I need to create a SOAP call where are signed more types not only the body
[makita]: I am inspecting it second day :)
[makita]: Thanks
[Discipulus]: better to ask a full SOPW

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (11)
As of 2017-03-23 08:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (285 votes). Check out past polls.