Re: perl regexp need help!

On 8/9/05, Wagner, David --- Senior Programmer Analyst --- WGO <[EMAIL PROTECTED]> wrote: > Alex wrote: > > Hello everyone, > > > > I need some help to fix a problem in mailgraph.pl script. I'm not a > > perl programmer, so i hope to find a little help here... > > > > I need to translate an old cod

Re: "Join" Function

"Vineet Pande" <[EMAIL PROTECTED]> writes: > hi, > In the following code which reads a file.txt (SEE ATTACHMENT) where I > am trying to understand how to put the DNA sequence in to a single > string... > > print "enter file with DNA sequence: "; > $seqfile = ; > chomp $seqfile; > unless ( open(DNA

Re: strftime Problem

Hi Dave I can get it to work if I do not include use Time::localtime. Wonder why it worked for you in the first instance? Chris -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: more hashref within array sorting

On Tue, Aug 09, 2005 at 05:00:44PM -0400, Jeff 'japhy' Pinyan wrote: > On Aug 9, Jeremy Kister said: > > >>my @s = map $_->[ 1 ], > >>sort { $a->[ 0 ] cmp $b->[ 0 ] } > >>map [ inet_aton( $_->{ N } ), $_ ], > >>@a; > > > >Now to analyze WTF we're doing here :) > > Paul'

Re: more hashref within array sorting

On Aug 9, Jeremy Kister said: my @s = map $_->[ 1 ], sort { $a->[ 0 ] cmp $b->[ 0 ] } map [ inet_aton( $_->{ N } ), $_ ], @a; Now to analyze WTF we're doing here :) Paul's answer had a slight typo in it -- he was comparing $a->[0], $a->[1], $a->[2], and $a->[3], wh

Re: more hashref within array sorting

On 8/9/2005 8:43 AM, John W. Krahn wrote: > Jeremy Kister wrote: >>I've apparently dumbed down my code and question a bit too much: I have >>multiple hashrefs in each element of the array, and I need the resulting >>sorted array to contain all the data in the original array, simply >>sorted by the

RE: strftime Problem

Dave Adams wrote: : I am trying to get the date stamps of multiple files on a win32 : machine using the strftime function in a foreach loop. : : For testing purpose, I take a single file and get the modification : time of it. This works. : : I then recycle my code and

strftime Problem

I am trying to get the date stamps of multiple files on a win32 machine using the strftime function in a foreach loop. For testing purpose, I take a single file and get the modification time of it. This works. I then recycle my code and place it in a foreach loop. This fails. Error message is:

RE: perl regexp need help!

Alex wrote: > Hello everyone, > > I need some help to fix a problem in mailgraph.pl script. I'm not a > perl programmer, so i hope to find a little help here... > > I need to translate an old code which is parsing my maillog file, into > new one, related to my present needs. > > The old code has

perl regexp need help!

Hello everyone, I need some help to fix a problem in mailgraph.pl script. I'm not a perl programmer, so i hope to find a little help here... I need to translate an old code which is parsing my maillog file, into new one, related to my present needs. The old code has worked with old vexira l

RE: Is there any Makefile.pl example?

Yu Wang wrote: > Hi, > > I have written a program using Gtk2 in Perl. It's the first time I > write program in Perl, so I need some help in writting the Makefile.pl > > I have 1 file for main program, and 5 files for modules. Besides > that, I also have document files and some data files to be ac

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

Offer Kaye <[EMAIL PROTECTED] .com>

Re: Is there any Makefile.pl example?

On 8/9/05, Yu Wang wrote: > Hi, > > I have written a program using Gtk2 in Perl. It's the first time I write > program > in Perl, so I need some help in writting the Makefile.pl > > I have 1 file for main program, and 5 files for modules. Besides that, I also > have document files and some data

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 > with remaining elements. >

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: Seeding variables from command line

Thank you all, worked like a charm. Old shell habits are hard to break ;-) Derrick Ballentine Automation Support Specialist District Court - Western Arkansas

RE: Seeding variables from command line

> -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] > Sent: Tuesday, August 09, 2005 10:39 AM > To: beginners@perl.org > Subject: Seeding variables from command line > > Sorry to bother everyone, but i was working on this yesterday and i > couldn't get it to work. I

RE: Seeding variables from command line

[EMAIL PROTECTED] wrote: > Sorry to bother everyone, but i was working on this yesterday and i > couldn't get it to work. I guess i have the wrong syntax for passing > variables in from the command line. > > Here's my script: > > = crypt.pl = > #!/usr/bin/perl > my $pwd = $1; > my $seed

Re: Seeding variables from command line

On Aug 9, [EMAIL PROTECTED] said: my $pwd = $1; my $seed = $2; That's shell syntax, Derrick. Perl's command-line arguments are stored in @ARGV. my ($pwd, $seed) = @ARGV; or my $pwd = $ARGV[0]; my $seed = $ARGV[1]; my $key = substr(crypt("$pwd","$seed"),2); Those quotes around $

Is there any Makefile.pl example?

Hi, I have written a program using Gtk2 in Perl. It's the first time I write program in Perl, so I need some help in writting the Makefile.pl I have 1 file for main program, and 5 files for modules. Besides that, I also have document files and some data files to be accessed by the code. I have r

Seeding variables from command line

Sorry to bother everyone, but i was working on this yesterday and i couldn't get it to work. I guess i have the wrong syntax for passing variables in from the command line. Here's my script: = crypt.pl = #!/usr/bin/perl my $pwd = $1; my $seed = $2; my $key = substr(crypt("$pwd","$seed

Re: help with pack/unpack

On Aug 9, Binish A R said: perl -le '$d = pack('B8' x 2, "01010110"); print $d' But its giving me only A ... When you say pack("B8B8", ...), Perl is expecting TWO additional arguments to pack(), not just ONE. $str = pack("B8 B8", "0101", "0110"); returns "AB". You could

Re: help with pack/unpack

Binish A R wrote: > Binish A R wrote: > >> I've a bit string something like >> 1100110100111 >> which is the bit representation of A and B together. >> >> How can I use unpack/pack to get this characters back? > > oops small mistake .. the bit representation for AB together is > 010101000

Re: help with pack/unpack

Binish A R wrote: I've a bit string something like 1100110100111 which is the bit representation of A and B together. How can I use unpack/pack to get this characters back? oops small mistake .. the bit representation for AB together is 01010110. Going thru perlpacktut, I t

help with pack/unpack

I've a bit string something like 1100110100111 which is the bit representation of A and B together. How can I use unpack/pack to get this characters back? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Net::SMTP : how to include sender address ?

Octavian Rasnita wrote: > I guess you want to add it into the header of the message: > > $smtp->datasend("From: [EMAIL PROTECTED] > To: [EMAIL PROTECTED] > Subject: This is the subject I made that guess a short while after I send the message. turn out : $smtp->datasend("From: "); was the answer

RE: revert to me asap

Hi Xavier Noria, Vidal(GURU), Christopher, SOLCM(GURU) Many Thanks for you help I will go thru it and let you know spare me some time rgds Venkat -Original Message- From: Xavier Noria [mailto:[EMAIL PROTECTED] Sent: Tuesday, 9 August 2005 3:56 PM To: Perl Beginners List Cc: Vidal, Chris

Re: more hashref within array sorting

Jeremy Kister wrote: > On 8/9/2005 6:26 AM, Paul Johnson wrote: >>my @s = map { $_ -> [0] } >>sort { $a->[0] <=> $b->[0] || >> $a->[1] <=> $b->[1] || >> $a->[2] <=> $b->[2] || >> $a->[3] <=> $b->[3] } >>map { [ $_, split /\./ ] } >>

Re: more hashref within array sorting

On Tue, Aug 09, 2005 at 06:53:33AM -0400, Jeremy Kister wrote: > On 8/9/2005 6:26 AM, Paul Johnson wrote: > > my @s = map { $_ -> [0] } > > sort { $a->[0] <=> $b->[0] || > >$a->[1] <=> $b->[1] || > >$a->[2] <=> $b->[2] || > >$a->[3] <=> $b->

Re: more hashref within array sorting

On 8/9/2005 6:26 AM, Paul Johnson wrote: > my @s = map { $_ -> [0] } > sort { $a->[0] <=> $b->[0] || >$a->[1] <=> $b->[1] || >$a->[2] <=> $b->[2] || >$a->[3] <=> $b->[3] } > map { [ $_, split /\./ ] } > map { $_->{N} } @a;

Re: Encoding iso-8859-16

On Tue, Aug 09, 2005 at 10:58:48AM +0530, Sastry wrote: > Hi > > I get 73 printed on EBCDIC platform. I think it is supposed to print > 129 as it is the numeric equivalent of 'a'. > > -Sastry > > > > On 8/8/05, Nicholas Clark <[EMAIL PROTECTED]> wrote: > > On your EBCDIC platform, what does

Re: more hashref within array sorting

On Tue, Aug 09, 2005 at 06:03:18AM -0400, Jeremy Kister wrote: > I've got an array full of hashrefs: > my @a = ( {N => '10.1.2.1'}, > {N => '10.1.9.1'}, > {N => '10.3.5.1'}, > {N => '10.1.1.3'}, > ); > > I want to sort this array, and print. I expect the ou

Re: revert to me asap

On Aug 9, 2005, at 6:20, Vema Venkata wrote: sub get_work_station_id { # return W0010A40C06D0 from vbop-0x4E58:W0010A40C06D0:windows my $id = shift; return $1 if $id =~ /:([^:]+):/; return; } [snip] Can you help me how to get with prefixed letter respectively Change

Re: Encoding iso-8859-16

Hi Nicholas Clark I agree that it is supposed to print the numerical equivalent 97. I attempted to see if there is any bug in the encode module. Surprisingly, I noticed that there are two .c files in ext/Encode/def_t.c and ext/Encode/Byte/byte_t.c which are generated using enc2xs. They are diff

more hashref within array sorting

I've got an array full of hashrefs: my @a = ( {N => '10.1.2.1'}, {N => '10.1.9.1'}, {N => '10.3.5.1'}, {N => '10.1.1.3'}, ); I want to sort this array, and print. I expect the output resemble: 10.1.1.3 10.1.2.1 10.1.9.1 10.3.5.1 I've fumbled with this fo

Re: Net::SMTP : how to include sender address ?

I guess you want to add it into the header of the message: $smtp->datasend("From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: This is the subject This is the body of the message (after an empty line. "); - Original Message - From: "gui" <[EMAIL PROTECTED]> To: Sent: Monday, August

revert to me asap

Hi Gurus, I have the following function which extracts the workstation id's sub get_work_station_id { # return W0010A40C06D0 from vbop-0x4E58:W0010A40C06D0:windows my $id = shift; return $1 if $id =~ /:([^:]+):/; return; } at present it is working fine... T

Net::SMTP : how to include sender address ?

Hi, I'm playing around with the Net::SMTP module. I can send email correctly, but each ones I send there's no sender's address. I thought that using mail() would to that, since it's the only method that takes the sender's address as parameter. but that's not it. how can I add a sender address to

Re: Transliteration operator(tr//)on EBCDIC platform

On Mon, 8 Aug 2005 15:36:40 +0100, Nicholas Clark <[EMAIL PROTECTED]> wrote > On Thu, Aug 04, 2005 at 11:42:54AM +0530, Sastry wrote: > > Hi > > > > I am trying to run this script on an EBCDIC platform using perl-5.8.6 > > > > ($a = "\x89\x8a\x8b\x8c\x8d\x8f\x90\x91") =~ tr/\x89-\x91/X/; > > i