CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: [stumpd] Trying to sort output: Edit Log



wickedxter
User

Feb 23, 2013, 10:04 AM


Views: 1442
Re: [stumpd] Trying to sort output

This can get the seconds found within the data


Code
 
use strict;
use warnings;

my $data = "69 Backup Storage Pool Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE,

Files Backed Up: 36081, Bytes Backed Up:

27,770,282,615, Unreadable Files: 0, Unreadable

Bytes: 0. Current Physical File (bytes):

8,409,734,275 Waiting for access to input volume

300082 (3116 seconds). Current output volume:

300724.

70 Backup Storage Pool Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE,

Files Backed Up: 39, Bytes Backed Up:

330,587,389,610, Unreadable Files: 0, Unreadable

Bytes: 0. Current Physical File (bytes):

10,636,058,581 Current input volume: 300082.

Current output volume: 300412.

71 Space Reclamation Offsite Volume(s) (storage pool TAPE_OFFSITE),

Moved Files: 8401, Moved Bytes: 851,107,244,

Unreadable Files: 0, Unreadable Bytes: 0.

Current Physical File (bytes): 4,356,813 Waiting

for access to input volume 300082 (1843

seconds). Current output volume: 300351.";


$data =~ s/\n|\r//g; #remove the \n or \r and make it all one line of data to search thru..

#save all matches then print
my @return2 = $data =~ /(\(\d+\s+seconds\))/g;
print "Found: $_\n\n" for @return2;


I this is what i think you were asking about was getting the seconds from the data.


(This post was edited by wickedxter on Feb 23, 2013, 10:04 AM)


Edit Log:
Post edited by wickedxter (User) on Feb 23, 2013, 10:04 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives