Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: needing to zip files in a series that begin with the same IP address

by diamondsandperls (Beadle)
on Jul 27, 2012 at 20:41 UTC ( #984096=note: print w/replies, xml ) Need Help??


in reply to needing to zip files in a series that begin with the same IP address

i feel im getting closer i failed to mention i need the output files to be the ip address e.g. 192.168.1.1.zip.

#!perl #use strict; use warnings; use IO::Compress::Zip qw(zip $ZipError) ; my @textfiles = <*.txt *.docx>; foreach my $textfile (@textfiles) { if ($textfile =~ /(\d+.\d+.\d+.\d+.*)/) { my $ip = $textfile =~ /(\d+.\d+.\d+.\d+).*/; my $files; push @{$files{$ip}}, $textfile; zip $textfile => $output or die "zip failed\n"; } }
  • Comment on Re: needing to zip files in a series that begin with the same IP address
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://984096]
help
Chatterbox?
[1nickt]: perl -e 'print 1.0' ... output '1'.
[Lady_Aleena]: You could quote it. <c>perl -e 'print "1.0"'>/c> returns 1.0
[Lady_Aleena]: perl -e 'my $var = "1.0"; print $var;' if it is in a variable also returns 1.0, though perl -e 'my $var = 1.0; print $var;' returns 1.
[1nickt]: In my case I can simply pass sprintf '%.1f', 1.0 (to Types::Standard:: Int), but what if you didn;t know the precision of the number you were working with? Seems I must be missing something. Oh well, my test list is complete, mooving on ...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (11)
As of 2017-05-24 18:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?