RE: whitespace beginning and end

Do you mean like unless($_ =~ /^\s*\d+\s*$/){ print $_; } ? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Wednesday, February 22, 2006 2:36 PM To: beginners@perl.org Subject: whitespace beginning and end Perl

whitespace beginning and end

Perlers I need to remove any line that begins with \d+ yet end with \s* Here is the data _BEGIN_DATA_ 0 2005/09/23 17:25 221 100% -il-o-b---U- sf F02043 1 2005/06/03 04:11 524 100% -il-o-b---U- sf F02017 2 2005/06/10 00:12 592 100% -il-o-b---U- sf F02018 3 20

RE: tracking emails sent

>[EMAIL PROTECTED] wrote: >: >: My problem is it mails once then i

RE: tracking emails sent

>That "last;" statement makes certain of it. So, the second >e

tracking emails sent

Perlers I have Perl program that looks for a certain string in a inode backup log file and if the log file is <= 5 minutes old it will continue on. If it finds this string from todays date 00:01 to 00:00 on it will email a warning. My problem is it mails once then it will mail again about the same

Re: use of uninitialized value....

Chas Owens <[EMAIL PROTECTED] .com>

Re: use of uninitialized value....

Jay Savage <[EMAIL PROTECTED] l.com>

Re: use of uninitialized value....

> > the || do lines in the ftp section > with a routine call to? : > > my $olddie = $SIG{__DIE__}; > $SIG{__DIE__} = sub { > my $error = shift; > $olddie->{$error} if ref $olddie; > mailme($error); > #other error stuff here > }; > snip No, that defines

Re: use of uninitialized value....

snip > my $ftp = Net::FTP->new($remotehost, Debug => 10) > || do {print FTPLOG "\nCannot connect to $remotehost: $!", > mailme(); return}; snip This is a bit off topic, but I can't look at code like this without suggesting the following alternative: near the top o

Re: use of uninitialized value....

Tom Phoenix <[EMAIL PROTECTED] om>

use of uninitialized value....

All, My problem seems to be within the Net::FTP module. I have intentionally modified my password so that my error routines can be tested, but once the login piece fails it continues on, when I would expect that it should die at the code in red. The uninitialized value is $OHMONSTER, but the FTP

Re: rename file on ftp server

Jay Savage <[EMAIL PROTECTED] l.com>

RE: rename file on ftp server

"Ryan Frantz" <[EMAIL PROTECTED] med-llc.com>

rename file on ftp server

All, I have a task to complete for a user. He wants me to rename a file on a remote server so that he can pick it up. I am trying to use a reg exp or a blog but this is not working. Any tricks of the perl trade will be mucho appreciated! The file format is OhioHealthyyymmdd[0-9].xml The [0-9] is

Re: fileno

Tom Phoenix <[EMAIL PROTECTED] om>

Re: pack an array

"JupiterHost.Net" <[EMAIL PROTECTED] st.net>

fileno

Perl'ers I am using gpg within a Perl program to decrypt some data files. In order to decrypt a passphrase has to be passed to the gpg binary and I choose to use fileno function but it is hanging waiting on the passphrase. I am trying to pass the passphrase to the binary via fileno. Any ideas on

Re: pack an array

what is this pack actually doing compressing the data in each element or the entire array or both? Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams Gerard Robin

using an system call for decryption

All, I am using gpg ( opensource encryption/decryption tool) to send files via ftp to a remote site. In my WIN32 Perl program I am trying to figure how I would do this equivalent in Unix... #> cat gpgpass |gpg - - "all the options" newfile encryptedfile The gpgpass is the password that will enabl

perl net ftp on windows

I cannot figure out how Net::FTP set its local current directory for gets of remote files? Does anyone know? I want to get remotefile from remotehost using: but I want to place this file in $localdir not in what Net::FTP claims to be get ( REMOTE_FILE [, LOCAL_FILE [, WHERE]] ) Get REMOTE_F

RE: running a short perl script in a windows XP arena

ok I will take that out I reran it and still get the same error. This is not the problem. Note: this is the correct way to do it within Unix. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams "Timo

running a short perl script in a windows XP arena

All, Here is my script and it is outputting "file is not present" when it should be outputting "temp file is good and $MHfile is there\n"; Am I missing something since I am running this is a Windows env? thank you, derek #!/usr/bin/perl use strict; use warnings; require 5.8.0; $ENV{"PATH"} = qq

Re: use constant

"John W. Krahn" <[EMAIL PROTECTED] >

Re: rearranging a string

[EMAIL PROTECTED] h.com

Re: rearranging a string

Roberto Etcheverry <[EMAIL PROTECTED]

rearranging a string

In my situation I have a string like so: my $string = '20050516'; and I want to rearrange it to look like: 05162005, so I tried: my $newstring = substr($string,0,8).substr($string,0,4).substr($string,8,0); But my problem is: it's leaving 2005 in the beginning of the string to look like 20050

compiling Storable in order to use Proc::ProcessTable

As I am attempting to compile this module I am getting many errors on an HPUX 11.11 64 bit machine. Any help please ? (See attached file: log) thank you, Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams log Description: Binary data -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additiona

RE: Use of uninitialized value

"Charles K. Clarkson" <[EMAIL PROTECTED]

RE: Use of uninitialized value

do you want me to seed the entire program. it is over 700 lines? it on lines 246 for eaxmple. And anywhere I assign a variable to a q->param construct such as $which_import and $which_radio_button. thank you so much! Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams

RE: Use of uninitialized value

"Charles K. Clarkson" <[EMAIL PROTECTED]

perl 5.6.1debug version 1.07

All, I am having some weird system call return codes and I am hoping for some help. when I run in debug mode a system command I get this error: here is my debugger code perl -dT foo use strict; use warnings; $ENV{"PATH"} = qq (/blah blah/); system ("import -v H02046 900") or die $!; END DEBU

Re: popping, shifting or splicing an array???

On 8/9/05, DBSMITH wrote: > > Hello ... > > I am trying to figure out, which operator to use; pop, shift or splice. > My goal is, as an option is selected from user input, pop or splice or > shift elements off ( those selected from user input ) and repopulate array &

popping, shifting or splicing an array???

Hello ... I am trying to figure out, which operator to use; pop, shift or splice. My goal is, as an option is selected from user input, pop or splice or shift elements off ( those selected from user input ) and repopulate array with remaining elements. Scenarios: as numbers are selected remo

Re: reg exp using \G

Jay Savage <[EMAIL PROTECTED] l.com>

Re: reg exp using \G

ok I understand now...thanks, but I tried it and it is still stopping at original1.1 I then modified it to print YE if ($1) but never saw YE in STDOUT. Dave Gray

Re: reg exp using \G

yes but the problem is my start point and end point have identical entries under them. It is stopping at original1.1 when I need for it to stop at the end of original1.1 and print media: sf Volumes: STK000 Total space available: 60.8G as opposed to just allsets to original1.1 For example

Re: reg exp using \G

Dave, technically you are correct about escaping the dot, but in this particular situation my regexp is working. I will escape the dot. my goal again is to print from one sting to another from "allsets" down. I apologize for the long output if data, but I want to reflect 100% accuracy. Any

reg exp using \G

All, I think I am on the right track as far as what assertion to use. I need to print from one string to another using .. with \G My goal is to capture from allsets down. thank you Here is my code: #!/usr/bin/perl use strict; use warnings; $ENV{PATH} = qq(/opt/SUNWsamfs/sbin:/usr/bin); open

Re: code improvement using LABELS within subroutines????

thank you, I will consider all of these. derek "Scott R. Godin" <[EMAIL PROTECTED] .net

Re: code improvement using LABELS within subroutines????

ok thanks but that does not really help. Sorry. your right about finger(), but based on my code I want to execute a certain block label if ( mary) finger (mary) if (jim) finger(jim) or if (mary) finger(goto mary) if (jim) finger(goto jim) Any other ideas to avoid the same system call 3 times

code improvement using LABELS within subroutines????

All, I am wanting to improve my code b/c I am making 3 identical system calls. So I thought a subroutine with that one call and LABELS for each condition would improve it. Is this possible b/c I am getting errors stating cannot find FPR.

search and replace with a temp file at a certain substr position

All, I need to search a file for a string then set a variable using substr b/c it is at a certain position, then finally replace the string with another string. Here is my test code: my $gpg=qq(/home/gpghrp/.gnupg); open (GPG, "gpg --fingerprint |"

Re: catching signal for an email notification

MNibble <[EMAIL PROTECTED] de>

catching signal for an email notification

Perl'ers I my code I wrote a routine that executes return code signals. My point being is if after any particular line of code make a call to check its success or failure. My question is if after any code system call or non system call failure according to $? == -1 ? & 127 or $?

answering prompts using expect or perl

Yo...what up. I have wrote this perl program to automatically download a block of strings specifically a public key. I opted for cURL instead of lwp but may switch as of yet. My question is when I goto sign the new key I am prompted with as in red : pub 1024D/886EC5AB created: 2005-03-28

Re: date range....

what is lwp? Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams Jay Savage <[EMAIL PROTECTED]

Re: reg exp help

Actually, you are incorrect... The +>> mean read and write in append mode. Please see the follow up email with the attachment I sent. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams 614-566-4145 brigh

reg exp help

Can anyone help me with this match: #!/usr/bin/perl use strict; use warnings; my $talxkeylog =qq(/home/gpghrp/.gnupg/keys/log/talxkeyupd.log); open (FH, "+>>$talxkeylog") or warn "unable to open file $talxkeylog $!" ; #&cURL(); #print "$calcdate\n$curtdate"; my (

date range....

People of the Perl, I have a need to develop some logic to automatically pick up a publc key for my gpg keyring. I will use cURL ( client for URL lookups ) language for the actual download , but the catch is the expiration time of our key which is 2005-11-16. So I want to say if calc data =~ cur

Re: host id

yeah thanks... company email system... Ar... notes is evil. for that fact IBM is evil! Dave Gray <[EMAIL PROTECTED]

RE: host id

[EMAIL PROTECTED] rum-health.org

RE: host id

I whole heartedly agree! top post rules! Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams "Ryan Frantz" <[EMAIL PROTECTED]

Re: assigning printf statement to an array

Please help on how to use the functionality of my date_manip1 subroutine to pass it the days old to get "the past date dd/mm/yy" as such: ABDELFATTAH__FAITH_M702515438: 101 dd/mm/yy thank you, derek Here is my code: use strict; use warnings; $ENV{"PATH"} = qq(/opt/SUNWsamfs

Re: bold print to a FH

yes of course I read it otherwise I would of not of sent an email! This is a help list correct? thanks Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams Jay Savage

Re: bold print to a FH

the code print MU color 'bold', "BLAH BLAH BLAH \n"; is not working with error: Uncaught exception from user code: Invalid attribute name media at disk_cache-tape_slot-usage.pl line 45 Carp::croak('Invalid attribute name media') called at /usr/perl5/5.6.1/lib/Term/ANSIColor.pm

bold print to a FH

All, I want to have bold print of a Title but it is not working. Here is my code: require 5.6.1; use strict; use warnings; use diagnostics; use MIME::Lite; use Term::ANSIColor; use Logfile::Rotate; $^T=time; our $now = time(); our $tapes = qq(/var/tmp/volrpt.log); our $mt= (stat("$tapes")

Re: assigning printf statement to an array

DITTO! THANKS Men! Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams John Doe To

Re: assigning printf statement to an array

operdir . 1> print 2> map {$_->[1].": ".$_->[0]."\n"} # create entity output 3> grep {$_->[0] > 100} # exclude age <= 100 4> map { [ 5> sprintf ("%.0f",( $now - ( stat("${hdir}$_" ) )[9] ) / ONE_DAY ), 6> $_ 7> ] } # create aref [age, filename] 8> grep {$_ ne "." and $_ ne ".."} # exclude un

Fw: assigning printf statement to an array

- Forwarded by Derek Smith/Staff/OhioHealth on 05/24/2005 03:47 PM - Derek Smith/Staff/OhioH

Re: assigning printf statement to an array

my @a= map {$hdir.$_->[1]} # select filename grep {$_->[0] > 100} # exclude age <= 100 map { [ sprintf ("%.0f",( $now - ( stat("${hdir}$_" ) )[9] ) / ONE_DAY ), $_ ] } # create aref [age, filename] grep {$_ ne "." and $_ ne ".."} # exclude unwanted sort readdir DH; # get all files The map-gr

Re: assigning printf statement to an array

Hi all. This is a continuation from my original question, but with a twist. I am now using sprintf to assign to an array, but I only want to assign to this array of I find a number over 100 from my calculation. In the array/hash also needs to be the directory name. Here is my code and the s

sprintf is now working

I am getting this error, can anyone help? thanks derek # perl -c dir.pl Useless use of sprintf in void context at dir.pl line 29. dir.pl syntax OK #!/usr/bin/perl use strict; use warnings; use Time::localtime; $ENV{"PATH"} = qq(/opt/SUNWsamfs/sbin:/usr/bin:/usr/sbin:/usr/local/log); my $hdir

RE: timestamp conversion

ok here is what I did: I took (now in seconds - last MTime ) = seconds old seconds old / ( 60x60x24) the divisor gives me in days how old the file is. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams

RE: timestamp conversion

Charles and the Perl beginners, thx for the response. But how do I ,from below, convert seconds old to a date? >From my docs Mtime shows me a timestamp of when the file was last changed. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams

timestamp conversion

All, My goal is to get element 9 of stat which is mtime. I am getting this with ease, but my end goal is to convert this number back into a readable format giving me how old the file is. So here is a rough draft formula : (time in seconds - last MTime ) = seconds old. Convert seconds old t

calling a separate perl script from within another perl script

All, I have done some reading and know there are various way to do this, but want to if there is an ideal way to call a non local perl script. I know it probably matters what one is doing, but in my case all I want to do is print the data from one script to the FH of another. The ways I know about

Re: populating a hash with % used as the key and F string as the value

John, I am a lotus user so my top-down reply is default ...sorry. I think all looks good, but I have to ask why are you initializing an array to hold values of a hash with keys? This could be written the long way (but now to be read topdown): my @keys=keys %lookup;

Re: populating a hash with % used as the key and F string as the value

> * If the format of all your data lines is "consistent", you could use split > on \s+ to get the data fields instead of a tr/m cascade. > > * Then, if I understand you correctly, you wantto build a hash with % keys > and F... values. This could be done with code like > > push @{$lookup_hash{$pct_v

Re: populating a hash with % used as the key and F string as the value

John, the reg exp s <-+> (); ^ was changed to y/sg//;; y/-//d; s{\w+} (); to exclude the spaces and use y... thx why are thre operators y or tr more efficient since these operators do not use pattern matching? Originally I was using an array,

populating a hash with % used as the key and F string as the value

I was thinking of using a hash of arrays b/c I want to look-up each array by a certain string and that string would the % string. My goal is to populate a hash of some sort with the % string and its associated F string. Here is the data file: 1 2005/01/20 15:39 17 2% -il-o-b- sg F01

Re: REGEXP removing - il- - -b-f and - il- - - - f

well, I am trying to get beyond a beginner as I have doing Perl for 3 years now so is your answer still the same? thanks, derek "Ing. Branislav

Re: REGEXP removing - il- - -b-f and - il- - - - f

So which is safer more ideal to use : || , or Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams "John W. Krahn" <[EMAIL PROTECTED]

Re: REGEXP removing - il- - -b-f and - il- - - - f

I will answer and ask all questions in one email! k. > $!"; > 5> my @fa =(); > 6> my @ha =(); > 7> my $i =0; > 8>foreach () { > Is there any good reason to slurp the entire file into memory? What would you suggest? I want to read the entire file via a filehandle. I have plenty of syste

Re: REGEXP removing - il- - -b-f and - il- - - - f

all f01 records are not printed if one uses print +(split)[7] rather print +(split)[5,6,7] will print all f01 records. sorry derek "JupiterHost.Net"

Re: REGEXP removing - il- - -b-f and - il- - - - f

I am confused with your email. what does (split) [-1] mean? Finally, Yes I do understand the differing precedence between or and | | . I have a habit using | |. I do also understand that if you use or you should use ( ) as opposed to | | you do not have to use ( ). Any comments? Derek B.

Re: REGEXP removing - il- - -b-f and - il- - - - f

perl people there was a lot of threads to my question ...thank you! I will start from the most recent. I took and understood the advise of my @a = (); changed to my @a; Yes I do understand the differing precedence between or and | | . I have a habit using | |. I do also understand that if

Re: REGEXP removing - il- - -b-f and - il- - - - f

yes that is true, [5,6,7] need to be typed otherwise all entries are not accounted for. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams 614-566-4145 "JupiterHost.Net"

Re: REGEXP removing - il- - -b-f and - il- - - - f

yes I agree I was a little ambiguous... I was in a hurry. sorry. Anyway here is my updated code. and here is a sample output: My goal is to get all F01 which I am but I am having issues capturing all of these values into my array. When I run the I get the data I want to see which is just the F01

REGEXP

Please help me find the regexp to replace -o-b- - - -f thank you! s/sg//, s/\- {1,}(\w{1,})//,print +(split)[5,6,7], if (m/f01(\d+)/gi ) my $_ has these lines in it: -o-b- - - -f F01045 -o-b- - - -f F01046 -o-b- - - -f F01047 -o-b- - - -f F01048 -o-b- - -f F01049 -o-b- - - -f F01050 -o-b-

RE: initialize arrays

I am just playing with variable assign. I always initialize my arrays first as I need them. thanks, Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams "Charles K.

initialize arrays

Are these two statements the same? my (@array, @array1) = ( ); my @array = my @array1 = ( ); Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: printing a filehandle to another file.

Perl'ers nevermind... I had a brain fart. I got it using a foreach loop on the file. Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams Derek

printing a filehandle to another file.

Here is my code: use strict; use warnings; my $tpexports = qq(/usr/local/bin/ohiohealth/derek); my $archivedexports = qq(/usr/local/log/9940exports.archived); open (_, "+>$tpexports") || die "could not open file: $tpexports $!"; open (FOO, ">>$archivedexports"

logfile rotate used as a subroutine with file passed by reference

All, Please audit my code as I cannot figure out the correct method to pass by ref into my logroll subroutine. Here is the error I am getting : Uncaught exception from user code: error: can not lock open: ($_) at /usr/local/bin/ohiohealth/tapesz_chk.OH.pl line 115 Carp::croak('er

Re: print with +split

ok perl people... I chnaged my code from >> use strict; >> use warnings; >> my $dev = qw/original1/; >> my $dev1 = qw/clinical1/; >> my $fout = qq(/usr/local/log/fuji.out); >> >> open (OUT, "+>$fout") || die "unable to open file: $fout $!"; >> open (FOO, "samcmd a $dev 2>\&1 |" )

Re: print with +split

ok in perldoc print it states: If FILEHANDLE is a variable and the next token is a term, it may me intrepreted as an operator unless you interpose a "+" . so in the code : while () { code ...code print +(split)[2], $, ; } FOO is my filehandle and it is considered a variab

RE: print with +split

Yes Wags the end result is 87, but I want to just take these two numbers and subtract then as opposed to using the * operator . I appreciate you efforts, but there's got to be an easier and more closely related answer to my original code with +(split)[2]. Does anyone know the answer to

RE: print with +split

Wags, come on you did not answer all my questions??? What about I took away the + from the print and I had some errors, why is the + infront of the split needed in Perl? I looked in my programming perl and could not find it/. The reason I want to use split is b/c these numbers change freque

print with +split

All, Here is my code: use strict; use warnings; my $dev = qw/original1/; my $dev1 = qw/clinical1/; my $fout = qq(/usr/local/log/fuji.out); open (OUT, "+>$fout") || die "unable to open file: $fout $!"; open (FOO, "samcmd a $dev 2>\&1 |" ) || die "unable to open pipe... $!";

buffer is not being flushed

Any ideas... as the file is not being appended to. The rights are correct, 664 and it prints to the STDOUT which is my screen??? use strict; use warnings; use diagnostics; use MIME::Lite; use Logfile::Rotate; $ENV{"PATH"} = qq(/opt/SUNWsamfs/sbin:/usr/bin:/usr/sbin:/usr/local/log); my @devs

Re: log rotate on multiple files

got it dude! thanks; my code is foreach ( $file1, $file2, $file3, $file4 ) { my $logs = new Logfile::Rotate (File => $_, Count => 10, Gzip => '/usr/bin/gzip', Dir

log rotate on multiple files

Will someone provide clues as to how use logfile rotate on multiple files? I looked at the rotate.pm and did not see anything this the code. I tried one File => line followed by multipl scalers but that did not work then I tried multiple File => references and this did not work??? thank you,

Re: reg exp

is this line :>$_=~s{delete}{}; a named unary call? Derek B. Smith OhioHealth IT UNIX / TSM / EDM Teams John Doe

Re: reg exp

greetings. cool beans! What perldoc has ###- -### in it? ...marked with...?for me is not enough of an explanation. sorry. yes as I read in programming perl as well lead me to this solution. On pg. 93 it states " =~ binds a string expression to a pattern match, substitution, or translatio

Re: reg exp

I took everyone's advise and understood. thank you! The code ###- - -### solved it! Now for an explanation: during the while loop, the $_ contains return code such as: ANS8000I Server command: 'tsm:select count(*) from nodes' ANR1699I Resolved TSM to 2 server(s) - issuing command SELECT aga

Re: reg exp

#!/usr/bin/perl ## Set pragmas (LC) and modules (UC) $^W = 1; use strict; use strict 'subs'; ## Begin Logic $ENV{"PATH"} = qq(/home/root:/usr/bin:/usr/sbin); my $w="40"; my $total="0"; my $outfile1 = qq(/home/root/tsm2_clients.out); my $outfile2 = qq(/home/root/tsm2_clients.plout); open (FF, "

reg exp

I have the file as attached and I want to take 104 and 356 to get a sum. Here is my code: while () { if ( $. > 6 ) { if ( $_ !~ "ANR*" or $_ !~ "ANS*" ) { print FFF $_; } } next unless $_ /

Re: Net::DNS

Because I am trying to find a way to get all the clients in a domain via Net::DNS and see if there is an existant "object class" with Server in it. But using Net::DNS I believe will not help b/c I think the website uses java script. Again, here is my problem that needs solved. thank you, There i

Re: Net::DNS

How would I get all hosts for a particular domain using Net::DNS? I tried *.domainname in my query. thanks, "Wiggins d'Anconia"

Re: javascript in Perl?

Below is the gui query |--+--| | | | |Object List by Administrator | | |--+--| | |

  1   2   3   >