Re: newbie question for parsing incoming mails

> On Feb 15, 2017, at 9:56 PM, Eko Budiharto wrote: > > Jim, > I have one a couple more questions. > -. For the header, what if, I just need the subject, the from, and the > recipient, what is the command? I read the manual in the > https://metacpan.org/pod/Email::MIME#header, it does not tell

Re: newbie question for parsing incoming mails

dear all, I have one a couple questions. -. For the header, what if, I just need the subject, the from, and the recipient, what is the command? I read the manual in the https://metacpan.org/pod/Email::MIME#header , it does not tell me how to extract

Re: newbie question for parsing incoming mails

On Feb 15, 2017, at 7:10 PM, Eko Budiharto wrote: > > Jim, > if I want to extract all incoming emails from my qmail emails, how can > specify the folder location and specify the file name since the file name > always different? > > Thx. Use File::Find or opendir and readdir to find all of th

Re: newbie question for parsing incoming mails

> On Feb 15, 2017, at 8:10 PM, Eko Budiharto wrote: > > dear Jim, > I tried to add lines to read file like this: > > use Email::MIME; > > my $file = '/var/qmail/mailnames/ name>/support/Maildir/cur/1487041394.M984019P23084V0803I00E03878.ABCD.NET,S=3987:2,'; > open my $ifh,

Re: newbie question for parsing incoming mails

dear Jim, I tried to add lines to read file like this: use Email::MIME; my $file = '/var/qmail/mailnames//support/Maildir/cur/1487041394.M984019P23084V0803I00E03878.ABCD.NET,S=3987:2,'; open my $ifh, '<', $file or die "Cannot open '$file' for reading: $!"; local $/ = ''; my

Re: newbie question for parsing incoming mails

Jim, if I want to extract all incoming emails from my qmail emails, how can specify the folder location and specify the file name since the file name always different? Thx. > On Feb 15, 2017, at 22:56, Jim Gibson wrote: > >> >> On Feb 14, 2017, at 10:38 PM, Eko Budiharto wrote: >> >> dear

Re: newbie question for parsing incoming mails

> when I run it, I do not get anything. Hmm, how are you testing it. I put a single header and msg in /tmp/ml.txt (Subject: training.error Trouble wiwb) and: $ parse_email_simple.pl < /tmp/ml.txt training.error Trouble wiwb (8 lines) $ cat /tmp/ml.txt | parse_email_simple.pl training.error Trouble

Re: newbie question for parsing incoming mails

> On Feb 14, 2017, at 10:38 PM, Eko Budiharto wrote: > > dear all, > I have a question. > If I would like to parse all incoming mails from my qmail, which perl module > is easy to use? > my qmail emails incoming is /var/qmail/mailnames//support. In > this folder I already have preline in .qma

Re: newbie pipe stdin to sendmail

On 02/11/2016 22:14, Andy Bach wrote: #!/usr/bin/perl my $vacation_forward = 'vacat...@domain.com '; open(OUT, "|/usr/sbin/sendmail $vacation_forward") or die ("Can't sendmail - $!"); my $email_addr_to = ''; while ( <>) { $email_addr_to = $1 if /^To: (.*)$/; print

Re: newbie pipe stdin to sendmail

On 02/11/2016 19:35, Andy Bach wrote: On Wed, Nov 2, 2016 at 9:13 AM, Mark Coetser mailto:m...@tux-edo.co.za>> wrote: $parser->ignore_errors(1); $parser->output_to_core(1); my $entity = $parser->parse(\*STDIN); my $error = ($@ || $parser->last_error); #get email headers

Re: Newbie creating Perl web report

Thank you Octavian, That was an very clear understanding of CGI vs web frame works. I'm still new to the Perl world and will be reading more into the modules you have mentioned. Also greatly welcome any suggestions for tutorials on the subject! Thanks! On Fri, Feb 7, 2014 at 12:45 AM, Chankey P

Re: Newbie creating Perl web report

Very good answer Octavian Rasnita :) On Fri, Feb 7, 2014 at 2:00 PM, Octavian Rasnita wrote: > CGI is just an interface between a program and a web server. > Other newer interfaces are fastcgi, fcgid, mod_perl, psgi... > > Using another interface than CGI has some advantages and some > disadva

Re: Newbie creating Perl web report

CGI is just an interface between a program and a web server. Other newer interfaces are fastcgi, fcgid, mod_perl, psgi... Using another interface than CGI has some advantages and some disadvantages. The main advantage is that the programs are persistent, so they are ran once, usually when the web

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Jul 5, 2012, at 10:46 AM, David Precious wrote: > On Thu, 5 Jul 2012 09:30:01 -0400 > Phil Pinkerton wrote: >> ok using the example input file I got errors >> >> Use of uninitialized value $current_resource in string eq >> at /Library/Perl/5.12/SVN/Access.pm line 70, line 3. > [...] >> Inva

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Jul 5, 2012, at 10:46 AM, David Precious wrote: > On Thu, 5 Jul 2012 09:30:01 -0400 > Phil Pinkerton wrote: >> ok using the example input file I got errors >> >> Use of uninitialized value $current_resource in string eq >> at /Library/Perl/5.12/SVN/Access.pm line 70, line 3. > [...] >> Inva

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Jul 5, 2012, at 10:46 AM, David Precious wrote: > On Thu, 5 Jul 2012 09:30:01 -0400 > Phil Pinkerton wrote: >> ok using the example input file I got errors >> >> Use of uninitialized value $current_resource in string eq >> at /Library/Perl/5.12/SVN/Access.pm line 70, line 3. > [...] >> Inva

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Thu, 5 Jul 2012 09:30:01 -0400 Phil Pinkerton wrote: > ok using the example input file I got errors > > Use of uninitialized value $current_resource in string eq > at /Library/Perl/5.12/SVN/Access.pm line 70, line 3. [...] > Invalid resource format in ! (format 'repo:/path')! Ah, I recall no

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Jul 4, 2012, at 5:46 PM, Chris Charley wrote: > > > "Phil Pinkerton" wrote in message > news:7a962da1-a5fb-4046-bbf5-f888dd715...@gmail.com... >> Very nice to know about CPAN. >> >> got a syntax error though with your script >> >> syntax error at ./getACLinfo.pl line 51, near "say join"

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Jul 4, 2012, at 6:02 PM, David Precious wrote: > On Wed, 4 Jul 2012 17:01:35 -0400 > Phil Pinkerton wrote: > >> Very nice to know about CPAN. > > IMO, CPAN is one of Perl's strongest features :) > > >> got a syntax error though with your script >> >> syntax error at ./getACLinfo.pl line

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

> > "Phil Pinkerton" wrote in message > news:7a962da1-a5fb-4046-bbf5-f888dd715...@gmail.com... >> Very nice to know about CPAN. >> >> got a syntax error though with your script >> >> syntax error at ./getACLinfo.pl line 51, near "say join" >> Execution of ./getACLinfo.pl aborted due to compil

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

Wow I am impressed on the 4th of July no-less I have revision 5 version 14 subversion 2 on linux and v5.12.3 on my mac On Jul 4, 2012, at 5:46 PM, Chris Charley wrote: > > > "Phil Pinkerton" wrote in message > news:7a962da1-a5fb-4046-bbf5-f888dd715...@gmail.com... >> Very nice to know about

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Wed, 4 Jul 2012 17:01:35 -0400 Phil Pinkerton wrote: > Very nice to know about CPAN. IMO, CPAN is one of Perl's strongest features :) > got a syntax error though with your script > > syntax error at ./getACLinfo.pl line 51, near "say join" > Execution of ./getACLinfo.pl aborted due to com

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

"Phil Pinkerton" wrote in message news:7a962da1-a5fb-4046-bbf5-f888dd715...@gmail.com... Very nice to know about CPAN. got a syntax error though with your script syntax error at ./getACLinfo.pl line 51, near "say join" Execution of ./getACLinfo.pl aborted due to compilation errors. [code]

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

Very nice to know about CPAN. got a syntax error though with your script syntax error at ./getACLinfo.pl line 51, near "say join" Execution of ./getACLinfo.pl aborted due to compilation errors. [code] #!/usr/bin/perl use strict; use SVN::Access; my $acl = SVN::Access->new( acl_file => 'data' );

Re: Newbie Where to start perhaps a hash-table is what I need to learn about ?

On Tue, 3 Jul 2012 09:47:00 -0400 Phil Pinkerton wrote: > I was given a project that seems to require Perl > > I could use a sample just to extract a list of names associated with > a group or repo and print them. > > 1) Assigned a task to extract data fron a text file. > 2) Output file needs t

Re: Newbie needs help

> "Geospectrum" == Geospectrum writes: Geospectrum> Hi am am setting up a small website and have set up formmail.pl to Geospectrum> create a way of people asking questions. I'm so very much hoping that you're not using Matt Wright's original formmail.pl, and instead using the one from NMS.

Re: Newbie needs help

On Tue, Mar 22, 2011 at 1:05 PM, Geospectrum wrote: > Hi am am setting up a small website and have set up formmail.pl to > create a way of people asking questions. > > I'd like now to add a way of visitors to display a HTML page by > entering a number (invoice number) into a HTML form and then re

Re: Newbie queries

dolphin wrote: Hi, Hello, Correct me that the "2" in the following means read? : my ( $label, $value ) = split /,/, $line, 2; The third argument to split determines how many list elements will be returned. For example, if: my $line = 'one,two,three,four,five,six,seven'; Then: split /

Re: Newbie queries

From: "dolphin" Hi, Correct me that the "2" in the following means read? : my ( $label, $value ) = split /,/, $line, 2; 2 means that the result of the split() function will be a list with 2 elements. You could also use the split() function without that third parameter that specifies the nu

Re: Newbie queries

On Jan 25, 6:43 pm, orasn...@gmail.com ("Octavian Rasnita") wrote: > From: "dolphin" > > > > > > > > > > > Hi, > > > I'm learning perl now and would like to find out how to perform the > > following if given in a text file? > > > ,12 > > ,437 > > ,124 > > ,45 > > ,789 > > ,

Re: Newbie queries

On Tue, Jan 25, 2011 at 2:43 AM, Octavian Rasnita wrote: > From: "dolphin" >> >> Hi, >> >> I'm learning perl now and would like to find out how to perform the >> following if given in a text file? >> >> >> ,12 >> ,437 >> ,124 >> ,45 >> ,789 >> ,67 >> CCC,567 >> DDD,5 >> >>

Re: Newbie queries

From: "dolphin" Hi, I'm learning perl now and would like to find out how to perform the following if given in a text file? ,12 ,437 ,124 ,45 ,789 ,67 CCC,567 DDD,5 How to sum up the 2nd column based on the 1st column with the following result: : BBB: CCC: DDD:

Re: Newbie: Perl how evaluate files newer than an hour within ftp

Hi Atropo, On Tuesday 17 August 2010 15:37:51 Atropo wrote: > Hi all, i have this simple script to check if a file has arrive since > the last hour > > find2perl tmp -type f -eval '-M $_ < 1/24' -print |perl > > but now i would like to check in a remote server, maybe on ftp > session. i have th

Re: NEWBIE: How to write to a file

> "A" == Atropo writes: A> Hi all,don't know almost nothing about perl but I'm RTFM. A> Dimitre Radoulov gave a perl script to get and delete via ftp some A> files. now i want generate a log file with those file names. A> I only added the lines starting in uppercase who told yo

Re: Newbie stuck at the first hurdle

Thank you Thomas. The problem was indeed the use of a double quoted string which was wrecking my file path. Using the $! var helped me to see that. "Learning Perl" and "Programming Perl" both arrived today, thank goodness! Cheers, Stuart -- To unsubscribe, e-mail: beginners-unsubscr...@perl.o

Re: Newbie stuck at the first hurdle

Hi Uri, Thanks for the response. I was using both Komodo Edit and Primalscript and didn't see a compile error, until I added the ref to $! then I could see that my filepath was being damaged because of the doublequotes. The reason I wondered about the full path was because I have been using Powe

Re: Newbie stuck at the first hurdle

> Hi, > > This is embarrassing. > > All I want to do is read the content of a simple 10 line .txt file > into an array > and print out the lines, and I just can't seem to get it to work! > /* > $target = "D:\testfile.txt"; > open NEWBIE, "<"$target"; > @arr = ; > foreach $line (@arr) { > print "$l

Re: Newbie stuck at the first hurdle

> "K" == Kryten writes: K> All I want to do is read the content of a simple 10 line .txt file K> into an array and print out the lines, and I just can't seem to get K> it to work! K> /* K> $target = "D:\testfile.txt"; K> open NEWBIE, "<"$target"; that won't even compile. are yo

Re: newbie question : about the perl sprintf

Majian wrote: I found these : perl -e'print 01.234 + 01.234', "\n"' perl -e'print 01.234 + 011.234' "\n"' perl -e'print 01.234.12 + 01.234', "\n"' And the results were : 1235234 1235234 1235.12234 For other surprises, try also: perl -wle 'print length(01.234.12)' perl -wle 'print 01.234.12'

Re: newbie question : about the perl sprintf

2009/10/25 Majian : > I found these : > perl -e'print 01.234 + 01.234', "\n"' print (01).(234+01).234, "\n"; this evaluates to '1'.'235'.'234' > perl -e'print 01.234 + 011.234' "\n"' I didn't get 1235234, I got 1243234. print (01).(234+011).(234),"\n" evaluates to print '1'.(234+9).'234',"\n";

Re: newbie question : about the perl sprintf

I found these : perl -e'print 01.234 + 01.234', "\n"' perl -e'print 01.234 + 011.234' "\n"' perl -e'print 01.234.12 + 01.234', "\n"' And the results were : 1235234 1235234 1235.12234 Can someone explain it ? Thanks~~ On Sat, Oct 24, 2009 at 7:28 PM, Peter Scott wrote: > On Wed, 21 Oct 200

Re: newbie question : about the perl sprintf

On Wed, 21 Oct 2009 20:52:05 +0800, Majian wrote: > And I modify it like this "sprintf "The number in > scientific > notation is %e", 01.255;" > The screen now output is " The number in scientific > notation > is 1.255000e+03" Ha, this is an

Re: newbie question : about the perl sprintf

On 21 Okt, 14:52, jian...@gmail.com (Majian) wrote: > Hi, all ; > >            I want to print  this sentence " The number in scientific > notation is 1.255000e+02". > >          So   I write a perl script like this : >                #!/usr/bin/perl >                 sprintf "The number in scienti

Re: newbie question : about the perl sprintf

> > sprintf "The number in scientific notation is %e", 1.255; > Sprintf doesn't print actually, it just returns a string based on the formats provided in the list you have. To actually print something you should use printf. printf "The number in scientific notation is %e",1255; And the notatio

Re: newbie question : about the perl sprintf

At 8:52 PM +0800 10/21/09, Majian wrote: Hi, all ; I want to print this sentence " The number in scientific notation is 1.255000e+02". So I write a perl script like this : #!/usr/bin/perl sprintf "The number in scientific notation is %e", 1.

Re: newbie needs help with first perl prog

Prince Mavi wrote: Hi folks Hello, I am new to perl. this is my first real program in perl. The program is not doing what i intend it to do. The problem in nut shell is that: I expect to see the menu first and then input my choice. but the program asks for my choice first and then displays th

Re: newbie needs help with first perl prog

Prince Mavi wrote: > Hi folks > > I am new to perl. this is my first real program in perl. > The program is not doing what i intend it to do. > The problem in nut shell is that: > I expect to see the menu first and then input my choice. > but > the program asks for my choice first and then display

Re: newbie needs help with first perl prog

Prince Mavi 写道: > Hi folks > > I am new to perl. this is my first real program in perl. > The program is not doing what i intend it to do. > The problem in nut shell is that: > I expect to see the menu first and then input my choice. > but > the program asks for my choice first and then displays th

Re: newbie with a question on syntax

On Tue, Feb 3, 2009 at 18:32, Dr.Ruud wrote: > Chas. Owens wrote: > >> [fat comma] >> >> it treats the thing on its left >> like a string if the thing on the left matches this pattern >> /^[-_a-zA-Z][-\w]*$/ > > I don't believe that pattern. So lets test: > > > perl -wle ' > $,=" => "; > my %h =

Re: newbie with a question on syntax

Chas. Owens wrote: > [fat comma] it treats the thing on its left like a string if the thing on the left matches this pattern /^[-_a-zA-Z][-\w]*$/ I don't believe that pattern. So lets test: perl -wle ' $,=" => "; my %h = ( -- => "x"); print %h; ' syntax error at -e line 3, near "-- =>"

Re: newbie with a question on syntax

On Mon, Feb 2, 2009 at 16:43, Tina wrote: > Hello, I just started programming in perl and currently am working in > an OOP sort of program. I am writing the constructor and I wasn't sure > of the differences between the following syntax: > > 'count' => 0 > > @count = 0 > > Both seem to work fine,

Re: Newbie question about variables, arrays and where they all go

On Mon Jan 19 2009 @ 4:21, dolphin_sonar wrote: > Again, you answered my question. You should be teaching Perl as your > responses are very clear and that's not easy for people to do...give > clear, concise responses. Actually, I had a big goof in my response. The program and the print statement

Re: Newbie question about variables, arrays and where they all go

On Jan 18, 7:54 pm, telemac...@arpinum.org (Telemachus) wrote: > On Sun Jan 18 2009 @ 10:59, dolphin_sonar wrote: > > >    1 # When calling 'running_sum(5, 6);' the variable 'state @numbers' > > receives those two > >    2 # parameters, (5 and 6), right? Then, the @numbers array also > > copies/sto

Re: Newbie question about variables, arrays and where they all go

From: Telemachus Date: Sun, 18 Jan 2009 20:17:27 -0500 To: beginners@perl.org Subject: Re: Newbie question about variables, arrays and where they all go On Sun Jan 18 2009 @ 7:54, Telemachus wrote: > The arguments to a subroutine go into the @_ array. The @numbers array is > empty unt

Re: Newbie question about variables, arrays and where they all go

On Sun Jan 18 2009 @ 10:59, dolphin_sonar wrote: >1 # When calling 'running_sum(5, 6);' the variable 'state @numbers' > receives those two >2 # parameters, (5 and 6), right? Then, the @numbers array also > copies/stores (5 and 6) >3 # into the special '( @_ )' variable as well, right? A

Re: Newbie - Simple conditional on regexp match

On 6 Aug., 14:05, [EMAIL PROTECTED] (Rob Coops) wrote: > You are almost right, since it prints all lines all lines match. > > Could you explain what it is that you are trying to match, that way people > might be able to help getting the regex right. i forgot about this thread, since it took so lon

Re: Newbie: Simple conditional on regexp match

On 6 Aug., 16:45, [EMAIL PROTECTED] (Yitzle) wrote: > On Wed, Aug 6, 2008 at 4:29 AM, Kenneth Brun Nielsen > <[EMAIL PROTECTED]> wrote: > > Within a perl program, I want to go to a particular mode when a > > keyword is found. The keyword is a regexp. > > > E.g. > > #!/usr/bin/perl -w > > open FILE

Re: Newbie: Simple conditional on regexp match

On Wed, Aug 6, 2008 at 4:29 AM, Kenneth Brun Nielsen <[EMAIL PROTECTED]> wrote: > Within a perl program, I want to go to a particular mode when a > keyword is found. The keyword is a regexp. > > E.g. > #!/usr/bin/perl -w > open FILEHANDLE, "soatest.soa"; > while (){ >if (/^\*| XI/) { >p

Re: Newbie - Simple conditional on regexp match

Kenneth Brun Nielsen wrote: > > I need to make a conditional on a regular expression match. How can I > do that? > > E.g. in the code below, it prints all lines, and NOT only the ones > that match. How can I make the boolean test correct? > > #!/usr/bin/perl -w > open FILEHANDLE, "soatest.soa"; >

Re: Newbie - Simple conditional on regexp match

You are almost right, since it prints all lines all lines match. Could you explain what it is that you are trying to match, that way people might be able to help getting the regex right. The way you are looking at the file line by line is valid and if your regex matches only a few lines it will o

Re: newbie question - handling email addresses

Great, thanks. I had hoped that was the case. On May 14, 11:33 am, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote: > Munzilla wrote: > > i was told that Perl doesn't like the "@" character > > Then you were told wrong. > > What you need to take into account is that the '@' character in a double > q

Re: newbie question - handling email addresses

Munzilla wrote: i was told that Perl doesn't like the "@" character Then you were told wrong. What you need to take into account is that the '@' character in a double quoted string needs to be escaped, or else Perl tries to interpret it as the start of an array variable. As regards data fr

Re: Newbie File Question....

On Feb 13, 2008 12:30 PM, <[EMAIL PROTECTED]> wrote: > Thank you to all who replied to this requestnow I > understand! I appreciate the help and the courtesy > of the replies! Once againThank You!! "One more satisfied customer" -said somewhere sometime by merlyn. -- David Moreno - http

RE: Newbie File Question....

Thank you to all who replied to this requestnow I understand! I appreciate the help and the courtesy of the replies! Once againThank You!! -Original Message- From: Copits Dick Sent: Wednesday, February 13, 2008 11:35 AM To: beginners@perl.org Subject: Newbie File Question I'v

Re: Newbie File Question....

On 02/13/2008 11:34:56 AM, [EMAIL PROTECTED] wrote: -> I've been going over some listings and I found code -> -> like the following: -> -> -> -> "./directory/file.txt" and -> -> "../directory/file.txt" this is not really a perl question, but since perl does respect the reference: "." and ".."

Re: Newbie File Question....

[EMAIL PROTECTED] told me on 02/13/2008 10:34 AM: > I've been going over some listings and I found code > > like the following: > > > > "./directory/file.txt" and > > "../directory/file.txt" > > > > but I've never seen the "./" and "../" things at the > > beginning of the path. I've trie

Re: Newbie File Question....

On Feb 13, 2008 8:34 AM, <[EMAIL PROTECTED]> wrote: > I've been going over some listings and I found code > > like the following: > > > > "./directory/file.txt" and > > "../directory/file.txt" > > > > but I've never seen the "./" and "../" things at the > > beginning of the path. I've tried to goo

Re: Newbie File Question....

On a unix/linux file system you see the following: $ ls -la total 244 drwx--9 rcoops ddao24096 Feb 13 09:40 . drwxr-xr-x 39 root root 4096 Feb 11 13:23 .. -rw---1 rcoops ddao2 158310 Feb 13 09:40 .bash_history -rw-r--r--1 rcoops ddao2 2

Re: Newbie: Has anyone used Tie::Hash::TwoWay

On Feb 4, 9:11 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: > John W. Krahn wrote: > >axtenswrote: > >> On Feb 4, 12:44 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: John, You're blowing me away with all this kindness. Thanks. Bruce. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: Newbie: Has anyone used Tie::Hash::TwoWay

John W. Krahn wrote: axtens wrote: On Feb 4, 12:44 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: axtens wrote: $res =~ s/\^/FS/ge; The /e option evaluates the "FS" string as perl code but it is not perl code so why use the /e option? As for the /e with the FS, the FS is actually a cons

Re: Newbie: Has anyone used Tie::Hash::TwoWay

axtens wrote: On Feb 4, 12:44 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: axtens wrote: $res =~ s/\^/FS/ge; The /e option evaluates the "FS" string as perl code but it is not perl code so why use the /e option? As for the /e with the FS, the FS is actually a constant for chr(28) which

Re: Newbie: Has anyone used Tie::Hash::TwoWay

On Feb 4, 12:44 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: > axtenswrote: > > On Feb 1, 10:00 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > >> axtenswrote: > >>> G'day everyone > John As it happens, there are commas in the data, and they can be on either side of the the tab. What's more, I wanted t

Re: Newbie: Has anyone used Tie::Hash::TwoWay

axtens wrote: On Feb 1, 10:00 am, [EMAIL PROTECTED] (Rob Dixon) wrote: axtenswrote: G'day everyone Thanks for that. I did, however, give up on using TwoWay and used an idea a colleague had given me, as below: sub Misspellings_Setup { @wordsList = split /\n/, <<'__WORDLIST__' abandonned

Re: Newbie: Has anyone used Tie::Hash::TwoWay

On Feb 1, 10:00 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > axtenswrote: > > G'day everyone Thanks for that. I did, however, give up on using TwoWay and used an idea a colleague had given me, as below: sub Misspellings_Setup { @wordsList = split /\n/, <<'__WORDLIST__' abandonned abandoned a

Re: Newbie: Has anyone used Tie::Hash::TwoWay

axtens wrote: G'day everyone I'm confused. I'm trying to make use of Tie::Hash::TwoWay to give me access to a dictionary of word <=> misspelling. Has anyone got any idea how I would use TwoWay for this? Nothing I do seems to work. my $secondary = $dict->{0}; while ( ($k, $v) = ( each %$seco

Re: Newbie: Has anyone used Tie::Hash::TwoWay

axtens wrote: G'day everyone I'm confused. I'm trying to make use of Tie::Hash::TwoWay to give me access to a dictionary of word <=> misspelling. Has anyone got any idea how I would use TwoWay for this? Nothing I do seems to work. my $secondary = $dict->{0}; while ( ($k, $v) = ( each %$seco

Re: Newbie question on substitution with Subroutines

"minky arora" schreef: > my ($count,$count1,$count3,$count2); Consider: my @count; -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Newbie question on substitution with Subroutines

On Oct 25, 12:01 pm, [EMAIL PROTECTED] (Minky Arora) wrote: > I need to make multiple substitutions in a file.There could be a > situation where there are more than one substitution on a single > line.I want to count the total # of substituitions.I need to use > subroutines: Says who? Is this a h

Re: Newbie

Thanks Romeo for the heads up! --- Romeo Theriault <[EMAIL PROTECTED]> wrote: > Perl is cross-platform, extremely useful for working > with large > amounts of text, using regular expressions, it has a > great repository > of modules for you to use for just about any task > you can think of

Re: Newbie

Perl is cross-platform, extremely useful for working with large amounts of text, using regular expressions, it has a great repository of modules for you to use for just about any task you can think of (CPAN), it's open source, it's got a great community, the list goes on and on. I would r

RE: Newbie Question

/2006 17:07 To: Perl Beginners Subject: Re: Newbie Question M K Scott wrote: > Hi, Hello, > I have tried that to no avail. I have also tried a simple match > of !~ m/(m|f){1}/ and even put in the code you suggested to read > !~ m/^(m|f){1}$/ but this still doesn't work properly

Re: Newbie Question

M K Scott wrote: > Hi, Hello, > I have tried that to no avail. I have also tried a simple match > of !~ m/(m|f){1}/ and even put in the code you suggested to read > !~ m/^(m|f){1}$/ but this still doesn't work properly. Input of > "d" or "T" will work to say it is incorrect and input of "m" or

RE: Newbie Question

ile to be read in and the number of digits > to be counted (ie 3 "1"'s, 6 "2"'s etc) and I can read input > in and do a 'getc' and pattern match that against a hash > containing word references to the numbers and then add one to > a count but i

RE: Newbie Question

ay to do this? Thanks again, Mark ____ From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: Wed 20/09/2006 01:12 To: Perl Beginners Subject: Re: Newbie Question M K Scott wrote: > Hi all, Hello, > Please forgive the newbie nature of this question but i'm

Re: Newbie Question

M K Scott wrote: > Hi all, Hello, > Please forgive the newbie nature of this question but i'm just > starting off teaching myself perl from scratch and so need a little > clarification. > > I am trying to put together a script to do pattern matching and while > I can get the basic syntax alrigh

Re: Newbie Question

while ($string != m/[a-zA-Z]{1,5}/ ) { print("that is wrongtry again: "); chomp ($string = ); } Maybe: while ($string !~ m/.../) { ... } When you're matching against regular expressions, you need to use =~ or !~. Hope this helps. -- Igor Sutton Lopes t: +55 51 9627.0779 e:

Re: Newbie Perl Question

On Jul 17, 2006, at 11:33 AM, Maxim wrote: But I am totally frustrated in regexp part in the script: /^DR\d+.*?(\d+).*?(\d+)(.+)/ Could you please explain it? Or maybe you have a link to intelligible guide for perl regexp? perldoc perlre is a pretty detailed description of perl's regexp.

Re: Newbie Perl Question

I'm pretty new myself, as such I like to see a little more error checking to accomodate for mine (or other people's) mistakes, here's one similar to Rob's but with some additional error checking that you might want, basically the main difference is that it expects your lines to be formatted like

Re: Newbie Perl Question

Rod Burgess wrote: > > I am new to the Perl world and am trying to learn it. A coworker tells me > that Perl will not work for what I am trying to do however, I think Perl > would be a great tool to use and I feel this coworker is wrong. > I have a file that contains several lines all as below:

Re: Newbie Perl Question

Hello Rod, I am not the author of the initial message, but thanks a lot for your reply. I am trying to adopt your script to my need, and, basically, it works for me. But I am totally frustrated in regexp part in the script: /^DR\d+.*?(\d+).*?(\d+)(.+)/ Could you please explain it? Or maybe you h

Re: Newbie Perl Question

""Rod Burgess"" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] >I am new to the Perl world and am trying to learn it. A coworker tells me > that Perl will not work for what I am trying to do however, I think Perl > would be a great tool to use and I feel this coworker is wrong. > I

Re: Newbie Perl Question

"Rod Burgess" schreef: Your Subject has no quality. Please come up with something like "convert data lines". > I am new to the Perl world and am trying to learn it. A coworker > tells me that Perl will not work for what I am trying to do however, > I think Perl would be a great tool to use and

Re: newbie sort question

thanks this solved my problem my @output_sorted = sort { (split /,/, $b)[0] <=> (split /,/, $a)[0] } @output; thanks to all that helped Jeff Pang <[EMAIL PROTECTED]> writes: > >>this is my friend's script >> >># collect all score >> my @output = (); >> my @old_output = (); >> for

Re: newbie sort question

This is not exactly an answer to your question, but hopefully it will be helpful. Whenever I have what is for me a non-trivial problem in an application, I write a script that deals only with what seems to be the error in the application script. I then fiddle with the former until I solve the

Re: newbie sort question

>this is my friend's script > ># collect all score > my @output = (); > my @old_output = (); > foreach my $list (@bugkillers) { >my ($id,$name) = split(/,/, $list); >my $score = >$Bugs->getSCORE($showold,$id,$contest,$pContest,$groups); >push(@output,"$score,

RE: newbie help for podcast script [with attach]

[EMAIL PROTECTED] wrote: : This is basically my 1st perl script. : : It's a podcast download app. I don't know the etiquette for : attaching files, but I have attached a <100 line perl file. : : It seems that it fails if there is only 1 podcast for a feed : with: : : fet

Re: newbie help for podcast script [with attach]

On Sat, 2005-07-30 at 20:15 +1000, [EMAIL PROTECTED] wrote: > On Fri, 2005-07-29 at 19:03 -0700, John W. Krahn wrote: > > > You are trying to call the get() method on the $feed object. Read the > > documentation for the correct syntax for XML::Simple::XMLin(). > > > > perldoc XML::Simple > > >

Re: newbie help for podcast script [with attach]

[...] > The script works fine for a normal pod feed. It only fails when the feed > only has one channel->item. > > Is line 65 OK? > > "foreach my $item (@{$data->{channel}->{item}}) {" > > all I want to do is step through one-by-one each item. Does that code > work properly if there is only one ite

Re: newbie help for podcast script [with attach]

On Fri, 2005-07-29 at 19:03 -0700, John W. Krahn wrote: > You are trying to call the get() method on the $feed object. Read the > documentation for the correct syntax for XML::Simple::XMLin(). > > perldoc XML::Simple > > > As to the warning message: > > perldoc perldiag > [snip] >Odd

Re: newbie help for podcast script [with attach]

[EMAIL PROTECTED] wrote: > *** SORRY, forgot to attach file. *** > > Hi, Hello, > This is basically my 1st perl script. > > It's a podcast download app. I don't now the etiquette for attaching > files, but I have attached a <100 line perl file. > > It seems that it fails if there is only 1 pod

  1   2   3   4   5   >