Re: parsing script help please

You want something like this: #!/software/bin/perl use warnings; use strict; my $file = "example.txt"; open my $in, '<', $file or die "Cannot open '$file' because: $!"; while ( <$in> ) { next if /^#/; chomp; my ( $key, @fields ) = split /\t/; print map "$key\t$_\n", @fields;

Re: parsing script help please

thanks a lot Rob I would like an output without the $VAR... so I did add this after the push function and it is perfect, thanks a lot again foreach my $number(@othernumbers){print $rownum,"\t",$elet, "\n";} #!/usr/local/bin/perl use strict; use warnings; my $fh; my %results; open ( $fh,

Re: parsing script help please

nathalie wrote: Hi Hello, I have this format of file: (see attached example) 1 3206102-3207048 3411782-3411981 3660632-3661428 2 4481796-4482748 4483180-4483486 and I would like to change it to this 1 3206102-3207048 1 3411782-3411981 1 3660632-3661428 2 4481796-4482748 2 4483180-4483486

Re: parsing script help please

On Thu, May 31, 2012 at 11:37 AM, nathalie wrote: > > > Hi > I have this format of file: (see attached example) > 1 3206102-3207048 3411782-3411981 3660632-3661428 > 2 4481796-4482748 4483180-4483486 > > > and I would like to change it to this > 1 3206102-3207048 > 1 34117

parsing script help please

Hi I have this format of file: (see attached example) 1 3206102-3207048 3411782-3411981 3660632-3661428 2 4481796-4482748 4483180-4483486 and I would like to change it to this 1 3206102-3207048 1 3411782-3411981 1 3660632-3661428 2 4481796-4482748 2 44

Re: parsing script removing some lines help please

John W. Krahn wrote: Mariano Loza Coll wrote: Hi John, Hello, I'm trying to learn a little bit more of Perl everyday, and I was intrigued about your earlier suggestion in a thread. my $bad_chromosomes = qr/^(?:6|8|14|16|18|Y)\t/; while (<$IN> ) { print $OUT $_ if !/$bad_chromosomes/

Re: parsing script removing some lines help please

Mariano Loza Coll wrote: Hi John, Hello, I'm trying to learn a little bit more of Perl everyday, and I was intrigued about your earlier suggestion in a thread. my $bad_chromosomes = qr/^(?:6|8|14|16|18|Y)\t/; while (<$IN> ) { print $OUT $_ if !/$bad_chromosomes/; } I get the s

Re: parsing script removing some lines help please

Nathalie Conte wrote: Hi, Hello, I am lost in my script, and would need to basic help please. I have got a file , separated by tabs, and the first column contain a chromosome number, then several other column with different infos. Basically I am trying to created a script that would take a

RE: parsing script removing some lines help please

> From: Nathalie Conte [mailto:n...@sanger.ac.uk] > Sent: Friday, September 30, 2011 9:38 AM > To: beginners@perl.org > Subject: parsing script removing some lines help please > > > > Hi, > I am lost in my script, and would need to basic help please. > I have got a

Re: parsing script removing some lines help please

On Fri, Sep 30, 2011 at 09:37, Nathalie Conte wrote: > thanks for any clues It's a simple one, really.. 8^) > #!/software/bin/perl > use warnings; > use strict; > open(IN, " open(OUT, ">>removed.txt") or die( $! ); ObCorrectness: you should say something more like open( my $IN , '<' , 'example

parsing script removing some lines help please

Hi, I am lost in my script, and would need to basic help please. I have got a file , separated by tabs, and the first column contain a chromosome number, then several other column with different infos. Basically I am trying to created a script that would take a file(see example), parse line

Re: parsing file need help please

On 6/8/11 Wed Jun 8, 2011 7:48 AM, "Nathalie Conte" scribbled: > HI, > Me again with another parsing script :) > this time, I have this file format, see below, I want to assess if the > genotyping data ( 2 letters at the beginning) are the same in column 1 > or 2, NN should be ignored (as no re

parsing file need help please

HI, Me again with another parsing script :) this time, I have this file format, see below, I want to assess if the genotyping data ( 2 letters at the beginning) are the same in column 1 or 2, NN should be ignored (as no results provided). I should count as well the number of heterozygous ( when

Re: Some Date Arithmetic/Manipulation help please !!!

> Hi all, > > Need some advise please on how do date arithmetic/calculation. > > Basically, I have a CSV delimited file that I need to do some date > calculations on. > > Am parsing the fields as $date1 and $date2 and I need to do the time > difference as $date2-$date1 > > Example of $date1 and $d

Re: Some Date Arithmetic/Manipulation help please !!!

On Fri, Jan 22, 2010 at 11:09 AM, newbie01 wrote: > Hi all, > > Need some advise please on how do date arithmetic/calculation. > > Basically, I have a CSV delimited file that I need to do some date > calculations on. > > Am parsing the fields as $date1 and $date2 and I need to do the time > diffe

Some Date Arithmetic/Manipulation help please !!!

Hi all, Need some advise please on how do date arithmetic/calculation. Basically, I have a CSV delimited file that I need to do some date calculations on. Am parsing the fields as $date1 and $date2 and I need to do the time difference as $date2-$date1 Example of $date1 and $date2 below: $date1

Some Date Arithmetic/Manipulation help please !!!

Hi all, Need some advise please on how do date arithmetic/calculation. Basically, I have a CSV delimited file that I need to do some date calculations on. Am parsing the fields as $date1 and $date2 and I need to do the time difference as $date2-$date1 Example of $date1 and $date2 below: $date1

Re: passing Hash to subroutine help please

2009/12/9 John W. Krahn : > Jeff Pang wrote: >> >> Noah: >>> >>> sub exiting { >>>    my ($hostname, %login) = @_; >> >> Passing arguments like this has no such problem. >> But you'd better pass the hash as a reference to the subroutine. >> >> exitint($hostname, \%login); >> >> sub exiting { >>    

Re: passing Hash to subroutine help please

John W. Krahn: Jeff Pang wrote: Noah: sub exiting { my ($hostname, %login) = @_; Passing arguments like this has no such problem. But you'd better pass the hash as a reference to the subroutine. exitint($hostname, \%login); sub exiting { my $hostname = shift; my %login = %{+shi

Re: passing Hash to subroutine help please

Jeff Pang wrote: Noah: sub exiting { my ($hostname, %login) = @_; Passing arguments like this has no such problem. But you'd better pass the hash as a reference to the subroutine. exitint($hostname, \%login); sub exiting { my $hostname = shift; my %login = %{+shift}; What is t

Re: passing Hash to subroutine help please

Jeff Pang wrote: > Noah: > >> >> sub exiting { >> my ($hostname, %login) = @_; > > Passing arguments like this has no such problem. > But you'd better pass the hash as a reference to the subroutine. ...or bundle _all_ parameters into a hashref, which I've found to be oh so extensible, wi

Re: passing Hash to subroutine help please

Noah: sub exiting { my ($hostname, %login) = @_; Passing arguments like this has no such problem. But you'd better pass the hash as a reference to the subroutine. exitint($hostname, \%login); sub exiting { my $hostname = shift; my %login = %{+shift}; ... } print "logi

Re: passing Hash to subroutine help please

On 12/8/09 Tue Dec 8, 2009 5:41 PM, "Noah" scribbled: > > Hi there List people, > > I am hoping to send a hash and a scalar to a subroutine but the variable > is not completely being sent. Below is the error message below is > showing something is not getting passed that well to the subrouti

passing Hash to subroutine help please

Hi there List people, I am hoping to send a hash and a scalar to a subroutine but the variable is not completely being sent. Below is the error message below is showing something is not getting passed that well to the subroutine. Looks like %login is empty. --- snip --- $ret{$hostnames[0]

Re: Help Please

Jyoti wrote: Can someone explain me what these symbols mean in regular expression: my $trim = sub {local($_)=shift; $$_ =~ s/^\s*//; ^ means that you want to anchor the pattern at the beginning of the string in $$_. \s is a character class that matches the whitespace characters " ", "\

Re: Help Please

On Thu, 10 Sep 2009 14:01:36 +, Peter Scott wrote: > Unless it's written by someone whose Perl learning stopped with Perl 4. Scratch that, I was so focussed on the body of the subroutine I forgot the context. > sub trim { $_[0] =~ s/^\s*(.*?)\s*$/$1/ } my $trim = sub { $_[0] =~ s/^\s*(.*?)\

Re: Help Please

Peter Scott wrote: Unless it's written by someone whose Perl learning stopped with Perl 4. Or someone with a C background and has yet to learn all the nuances or Perl. :) -- Just my 0.0002 million dollars worth, Shawn Programming is as much about organization and communication as it

Re: Help Please

On Thu, 10 Sep 2009 17:43:47 +0530, Ajay Kumar wrote: > And > $$_ you can understand like below > > > $name="ajay"; > $class="name" > > $$class== ajay It is unlikely that the original code was called with symbolic references like you have just explained. More likely it was called with real r

Re: Help Please

Thanks All... Going through documentation as well as short explanation was useful.. I got it [?] Cheers!!! <<330.png>>

Re: Help Please

2009/9/10 Ajay Kumar : > And > $$_ you can understand like below > > > $name="ajay"; > $class="name" > > $$class== ajay Don't use symbolic references. This will not compile under "use strict;" or "use strict 'refs';". If you need references, use hard references: $name = "ajay"; $class = \$name; #

RE: Help Please

com] Sent: Thursday, September 10, 2009 5:39 PM To: Jyoti Cc: beginners@perl.org Subject: Re: Help Please Jyoti wrote: > Can someone explain me what these symbols mean in regular expression: > > my $trim = sub {local($_)=shift; > $$_ =~ s/^\s*//; > $$_ =~ s/\s*$//;}; > &g

Re: Help Please

Jyoti wrote: Can someone explain me what these symbols mean in regular expression: my $trim = sub {local($_)=shift; $$_ =~ s/^\s*//; $$_ =~ s/\s*$//;}; Thanks. Yes, it's all explained in: http://perldoc.perl.org/5.8.8/perlretut.html http://perldoc.perl.org/5.8.8/perlre.html -- Ju

Help Please

Can someone explain me what these symbols mean in regular expression: my $trim = sub {local($_)=shift; $$_ =~ s/^\s*//; $$_ =~ s/\s*$//;}; Thanks.

RE: Loading results of pattern match into an array - help please

> -Original Message- > From: jeffqt...@gmail.com [mailto:jeffqt...@gmail.com] > Sent: Friday, January 23, 2009 12:58 > To: beginners@perl.org > Subject: Loading results of pattern match into an array - help please > > I am trying to split a very long fixed l

Re: Loading results of pattern match into an array - help please

> I am trying to split a very long fixed lenght record into its > constituents, and then load them into an array. I have patterns like > '^ > (.{3})(.{24})(.{6})...' which gets teh fields into $1, $2, $3 etc. I > am stumped however as to how to get them into an array in a general > way. With 'use s

Re: Loading results of pattern match into an array - help please

jeffqt...@gmail.com wrote: I am trying to split a very long fixed lenght record into its constituents, and then load them into an array. I have patterns like '^ (.{3})(.{24})(.{6})...' which gets teh fields into $1, $2, $3 etc. my @array = $record =~ /^(.{3})(.{24})(.{6}).../; I havebasic

Re: Loading results of pattern match into an array - help please

On Fri, 2009-01-23 at 11:57 -0800, jeffqt...@gmail.com wrote: > I am trying to split a very long fixed lenght record into its > constituents, and then load them into an array. I have patterns like '^ > (.{3})(.{24})(.{6})...' which gets teh fields into $1, $2, $3 etc. I > am stumped however as to h

Loading results of pattern match into an array - help please

I am trying to split a very long fixed lenght record into its constituents, and then load them into an array. I have patterns like '^ (.{3})(.{24})(.{6})...' which gets teh fields into $1, $2, $3 etc. I am stumped however as to how to get them into an array in a general way. With 'use strict' turne

Re: Wrong while{} loop, maybe!? I need help, please.

On Aug 14, 2:15 pm, [EMAIL PROTECTED] wrote: > #!/usr/bin/perl -w > use strict; > use Authen::Simple::POP3; > > print "Enter POP3 server hostname: "; > chomp( my $host = ); > > my $pop3 = Authen::Simple::POP3->new( >     host => $host > ); > > my $pwdlst = "pass.txt"; > open( INPASS, $pwdlst ) ||

Re: Wrong while{} loop, maybe!? I need help, please.

On Aug 14, 2:15 pm, [EMAIL PROTECTED] wrote: > #!/usr/bin/perl -w > use strict; > use Authen::Simple::POP3; > > print "Enter POP3 server hostname: "; > chomp( my $host = ); > > my $pop3 = Authen::Simple::POP3->new( >     host => $host > ); > > my $pwdlst = "pass.txt"; > open( INPASS, $pwdlst ) ||

Re: Wrong while{} loop, maybe!? I need help, please.

Rob Dixon schreef: > [EMAIL PROTECTED] wrote: >> close(INUSER); >> close(INPASS); > > There is no need to close open file handles at the end of the > program. If your program is written well there is never a need to > close them. While that is generally true for file handles that you only read fr

Re: Wrong while{} loop, maybe!? I need help, please.

[EMAIL PROTECTED] wrote: > > #!/usr/bin/perl -w > use strict; It is better to get into the habit of doing use warnings; instead of the -w swicth. > use Authen::Simple::POP3; > > print "Enter POP3 server hostname: "; > chomp( my $host = ); > > my $pop3 = Authen::Simple::POP3->new( > hos

Re: Wrong while{} loop, maybe!? I need help, please.

On Thu, 2008-08-14 at 02:15 -0700, [EMAIL PROTECTED] wrote: > # It's supposed to read first username from user.txt > # and try it against all the passwords from pass.txt, > # and then to move to the next username and run that > # against all the passwords, too, and so on...but it > # does not work

Wrong while{} loop, maybe!? I need help, please.

#!/usr/bin/perl -w use strict; use Authen::Simple::POP3; print "Enter POP3 server hostname: "; chomp( my $host = ); my $pop3 = Authen::Simple::POP3->new( host => $host ); my $pwdlst = "pass.txt"; open( INPASS, $pwdlst ) || die "\nERROR: Cannot open file \'$pwdlst\'! \n"; my $usrlst = "user

Re: RegEx help please ...

Mr. Shawn H. Corey wrote: > On Mon, 2008-08-11 at 23:30 +0100, Rob Dixon wrote: >> Mr. Shawn H. Corey wrote: >>> On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: I have the following issue: my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ web-media/images

Re: RegEx help please ...

On Mon, 2008-08-11 at 23:30 +0100, Rob Dixon wrote: > Mr. Shawn H. Corey wrote: > > On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: > >> > >> I have the following issue: > >> > >> my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ > >> web-media/images/bday-after-help.jpg,javascri

Re: RegEx help please ...

Mr. Shawn H. Corey wrote: > On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: >> >> I have the following issue: >> >> my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ >> web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ >> birthday/main.html','bday-pics',785,460);"

Re: RegEx help please ...

Saya wrote: > > I have the following issue: > > my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ > web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ > birthday/main.html','bday-pics',785,460);" > > Now I want $s to be like: "/metadata-files/test-desc.txt,/meta

Re: RegEx help please ...

On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: > Hi, > > I have the following issue: > > my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ > web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ > birthday/main.html','bday-pics',785,460);" > > Now I want $s to be l

RegEx help please ...

Hi, I have the following issue: my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ birthday/main.html','bday-pics',785,460);" Now I want $s to be like: "/metadata-files/test-desc.txt,/metadata- files/birthday.txt

Re: Debug Help Please

On Mon, 07 Jul 2008 05:16:10 -0700, Andy wrote: > One of the Perl guys at my office. told me that I can use > use strict; > use warnings; > > but he said , he really doesn't because he wants the script to do what > it needs to do... And if one of "the car guys" at your office announced that he'd

Re: Debug Help Please

- Original Message - From: "Andy" <[EMAIL PROTECTED]> Newsgroups: perl.beginners To: Sent: Tuesday, July 08, 2008 9:31 PM Subject: Re: Debug Help Please On Jul 7, 2:16 pm, [EMAIL PROTECTED] (Andy) wrote: On Jul 7, 11:53 am, [EMAIL PROTECTED] (Rob Dixon) wrote:

Re: Debug Help Please

On Jul 7, 2:16 pm, [EMAIL PROTECTED] (Andy) wrote: > On Jul 7, 11:53 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > > > > > Andy wrote: > > > > Funny how when you talk to different people you get different ways of > > > looking at it. > > > > One of the Perl guys at my office. told me that I can use >

Re: Debug Help Please

On Jul 7, 4:33 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: > Andy wrote: > > > Funny how when you talk to different people you get different ways of > > looking at it. > > Yes, that is how the world works. In Perl there is the expression > TIMTOWTDI (There Is More Than One Way To Do It) which mea

Re: Debug Help Please

On Jul 7, 11:53 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > Andy wrote: > > > Funny how when you talk to different people you get different ways of > > looking at it. > > > One of the Perl guys at my office. told me that I can use > > use strict; > > use warnings; > > > but he said , he really doesn

Re: Debug Help Please

Andy wrote: Funny how when you talk to different people you get different ways of looking at it. Yes, that is how the world works. In Perl there is the expression TIMTOWTDI (There Is More Than One Way To Do It) which means that you will probably get different opinions on "The Right Way" to

Re: Debug Help Please

Andy wrote: > > Funny how when you talk to different people you get different ways of > looking at it. > > One of the Perl guys at my office. told me that I can use > use strict; > use warnings; > > but he said , he really doesn't because he wants the script to do what > it needs to do... Then

Re: Debug Help Please

On Jul 5, 9:54 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: > Andy wrote: > > > Greets > > Hello, > > > Thanks for your earlier help, but I am still stuck. > > > I took your advice and I believe I put together the script as you > > said. > > Except that you apparently haven't yet enabled the warnin

Re: Debug Help Please

Andy wrote: Greets Hello, Thanks for your earlier help, but I am still stuck. I took your advice and I believe I put together the script as you said. Except that you apparently haven't yet enabled the warnings and strict pragmas in your program to help you find your mistakes. I decid

Re: Debug Help Please

On Jul 4, 1:16 am, [EMAIL PROTECTED] (John W. Krahn) wrote: > Andy wrote: > > Well Disregard the above script I made changes that I think were > > needed, but I still have no output in the .csv files > > You still have some of the same mistakes that were in the program the > last time you posted it

Re: Debug Help Please

Andy wrote: Well Disregard the above script I made changes that I think were needed, but I still have no output in the .csv files You still have some of the same mistakes that were in the program the last time you posted it. Have you read my reply to your first posting yet? John -- Perl is

Re: Debug Help Please

Well Disregard the above script I made changes that I think were needed, but I still have no output in the .csv files #!/usr/bin/perl #use strict; #use warnings; #Define LogFiles my $dateroot="$ARGV[0]"; # Value should be 2-digit month my $outgoing="outgoing_xferlog.$dateroot.csv"; # This

Re: Debug Help Please

Andy wrote: Greets Hello, I wrote this script to parse information from some log files. It Seems to work , or look like it works. In the end I get the log creation of .csv log files with no information. I am learning how to write this , I know there are tons of ways to do this. But My Boss m

Debug Help Please

Greets I wrote this script to parse information from some log files. It Seems to work , or look like it works. In the end I get the log creation of .csv log files with no information. I am learning how to write this , I know there are tons of ways to do this. But My Boss made a decision to keep a

Re: Perl Encryption Game Help Please

On Friday 09 November 2007 04:55, John W.Krahn wrote: > > On Thursday 08 November 2007 17:11, Inventor wrote: > > > > if ($i == 0) { > > if (@s1[0] eq "QBCnlq57Byh") { > > If you had warnings enabled perl would have warned you about using an > array slice where you should be using a sca

Re: Perl Encryption Game Help Please

On Nov 9, 7:55 am, [EMAIL PROTECTED] (John W . Krahn) wrote: > > Well, let's have a look at some code. :-) > > > John > -- > use Perl; > program > fulfillment Haha! You are quite the stickler for detail! My apologies for the GNU GPL mistake especially!!! I will now run off and fix everything

Re: Perl Encryption Game Help Please

Why not hire a PR firm instead of filling up everyone's inbox with off-topic discussion? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Perl Encryption Game Help Please

On Nov 8, 1:57 pm, [EMAIL PROTECTED] (Yitzle) wrote: > Is there a website with anything released? > You can use tr/// to create a slightly better encyption than the > rot13, where A becomes Q, and B becomes X... where the match is > randomly assigned. > > -- > - Yitzchok Good Hmmm, I answered your

Re: Perl Encryption Game Help Please

On Thursday 08 November 2007 17:11, Inventor wrote: > > On Nov 8, 1:57 pm, [EMAIL PROTECTED] (Yitzle) wrote: > > > > Is there a website with anything released? > > Great, thanks for asking, I have just completed Mission 2 and updated > the web site accordingly. You will find the Missions trivially

Re: Perl Encryption Game Help Please

On Nov 8, 1:57 pm, [EMAIL PROTECTED] (Yitzle) wrote: > Is there a website with anything released? > You can use tr/// to create a slightly better encyption than the > rot13, where A becomes Q, and B becomes X... where the match is > randomly assigned. > > -- > - Yitzchok Good Great, thanks for ask

Re: Perl Encryption Game Help Please

Is there a website with anything released? You can use tr/// to create a slightly better encyption than the rot13, where A becomes Q, and B becomes X... where the match is randomly assigned. On Nov 8, 2007 12:40 AM, Inventor <[EMAIL PROTECTED]> wrote: > > On Nov 7, 9:03 pm, [EMAIL PROTECTED] (Yitz

Re: Perl Encryption Game Help Please

On Nov 7, 9:03 pm, [EMAIL PROTECTED] (Yitzle) wrote: > If you're using rot13, I'd like to take this oppurtunity to quote > Mendel Cooper, author of The Advanced Bash-Scripting Guide [1], in > regards to rot13 [2] > "This simple-minded cipher can be broken by an average 12-year old > using only penc

Re: Perl Encryption Game Help Please

If you're using rot13, I'd like to take this oppurtunity to quote Mendel Cooper, author of The Advanced Bash-Scripting Guide [1], in regards to rot13 [2] "This simple-minded cipher can be broken by an average 12-year old using only pencil and paper." [1] http://tldp.org/LDP/abs/html/index.html [2]

Re: Perl Encryption Game Help Please

On Nov 7, 10:59 am, [EMAIL PROTECTED] (Tom Phoenix) wrote: > > Hope this helps! > > --Tom Phoenix > Stonehenge Perl Training Yes, that helped a great deal, thanks! I should mention that the emphasis will be on gaining computer skills, setting up freeware tools, and also on defensive measures such

Re: Perl Encryption Game Help Please

On 11/6/07, Inventor <[EMAIL PROTECTED]> wrote: > I would like to code up a test game in which the user must write a > simple set of nested for loops that try every password code against a > perl guardian script until they get the right password. To accomplish > this, I need one perl script that

Perl Encryption Game Help Please

Hi, First an introduction and then a few questions. I have a concept for a game that came to me in a dream. It involves writing code and building hardware to complete various objectives. The game is called HSTechSpy at the moment, and it will be open source with profit derived by selling the har

Perl Programming -help please

Hi Perl lovers, I am a newbee to perl studiying perl manuals since 20 days and started little programing on additions and regexps and so, on... Here i need a suggestion from you guys regarding the mysql database and writing a script on RAW CDRs so that i can make billing on that

Re: Regexp help please

Smith, Derek schreef: > Dr.Ruud: >> sub SOB { '\A' } >> sub EOB { '\z' } > > Are all these considered anonymous sub-routines? No, see `perldoc perlsub`. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAI

RE: Regexp help please

-Original Message- From: Dr.Ruud [mailto:[EMAIL PROTECTED] Sent: Thursday, July 13, 2006 5:24 PM To: beginners@perl.org Subject: Re: Regexp help please "Dr.Ruud" schreef: > Slight revision, that fails on the last line: More assuming revision: #!/usr/bin/perl use war

Re: Regexp help please

"Dr.Ruud" schreef: > Slight revision, that fails on the last line: More assuming revision: #!/usr/bin/perl use warnings ; use strict ; sub SOB { '\A' } sub EOB { '\z' } sub OR { join '|', @_ } sub sp { '[[:blank:]]+' } sub capture { "(@_)" } sub optional

Re: Regexp help please

Brano Gerzo schreef: > Dr.Ruud [DR], on Thursday, July 13, 2006 at 21:05 (+0200) wrote these > comments: > > > as you helped me much, here is example of RE: > > my $re = > '^\s*(?:(\d+)\s+)?(\w+(?:\s+\w+)*?)(?:\s+((?:sq|hy|ay|bs|bg|hr|cs|da|nl| en|et|fi|fr|de|gr|he|hu|zh|it|ja|kk|lv|pl|pt|pb|ro|ru|

Re: Regexp help please

Brano Gerzo schreef: > Dr.Ruud [DR], on Thursday, July 13, 2006 at 21:05 (+0200) made these > points: > >> I don't understand what you try to match with "[\w\s\+:]+". It >> matches any series of characters that belong to the character class >> containing [[:word:]], [[:space:]], a plus and a colon.

Re: Regexp help please

Dr.Ruud [DR], on Thursday, July 13, 2006 at 21:05 (+0200) wrote these comments: as you helped me much, here is example of RE: my $re = '^\s*(?:(\d+)\s+)?(\w+(?:\s+\w+)*?)(?:\s+((?:sq|hy|ay|bs|bg|hr|cs|da|nl|en|et|fi|fr|de|gr|he|hu|zh|it|ja|kk|lv|pl|pt|pb|ro|ru|sr|sk|sl|es|sv|th|tr|uk|al)(?:\s*,

Re: Regexp help please

D. Bolliger [DB], on Thursday, July 13, 2006 at 21:48 (+0200) typed the following: DB> This data format is ambigous, consider: I know, but I count with it in this case. This regexp is used only for commands to bots, so there should be some "small" errors in parsing :) if it passes to language,

Re: Regexp help please

Brano Gerzo am Donnerstag, 13. Juli 2006 21:23: [...] > yes, my example was ambiguous sorry, for that. Here are more examples: > > word > word word > word word word > 1 word > 1 word word word > 1 word en,pt,sk > 1 word en 1cd > > so: > - first digits are optional > - then it is followed by word(s)

Re: Regexp help please

Dr.Ruud [DR], on Thursday, July 13, 2006 at 21:05 (+0200) made these points: DR> I don't understand what you try to match with "[\w\s\+:]+". It matches DR> any series of characters that belong to the character class containing DR> [[:word:]], [[:space:]], a plus and a colon. So "a b :c" would matc

Re: Regexp help please

Brano Gerzo schreef: > hello all! > > I'd like to request for help with this regexp. I want match > these examples: > > word word > 3 word word > 3 word word en > 3 word word en,pt > 3 word word en,pt 1cd > > ok, here is regexp I wrote: > ^\s*(\d{1,2}\s+)?([\w\s\+:]+) > (sq|hy|ay|bs|bg|hr|cs|da|nl|

Regexp help please

hello all! I'd like to request for help with this regexp. I want match these examples: word word 3 word word 3 word word en 3 word word en,pt 3 word word en,pt 1cd ok, here is regexp I wrote: ^\s*(\d{1,2}\s+)?([\w\s\+:]+)(sq|hy|ay|bs|bg|hr|cs|da|nl|en|et|fi|fr|de|gr|he|hu|zh|it|ja|kk|lv|pl|pt|pb

Re: Help Please!!! External APP passing value to Perl- Problem Resolved

Jeff, Thanks a lot for your reply. Acutally external APP was passing value to command prompt so the first option did work. "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On Jul 22, Perl said: > > > what can be the syntex of assigning a variable (my $path) i

Re: Help Please!!! External APP passing value to Perl

On Jul 22, Perl said: what can be the syntex of assigning a variable (my $path) in perl which is taking value (for example c:\documents\script.txt) from an expternal APP. How is your program getting passed this value? On the command-line? If so, then you would access the value from the @A

Help Please!!! External APP passing value to Perl

Hello Listners, I am totally novice in perland I need help with that script. what can be the syntex of assigning a variable (my $path) in perl which is taking value (for example c:\documents\script.txt) from an expternal APP. The script will actually parse the my$path value (C:\documents\script.

RE: need help please

[EMAIL PROTECTED] wrote: : I have the web page for the form. But the web page does not : receive the data from the cgi file. : I check my work in DOS. When I type perl -c bonus.cgi : I get a message tell me syntax ok. : But when I check with : perl -w bonus.cgi I ge

Re: need help please

[EMAIL PROTECTED] wrote: Hi My program is to send data using an online form. I have the web page for the form. But the web page does not receive the data from the cgi file. I check my work in DOS. When I type perl -c bonus.cgi I get a message tell me syntax ok. But when I check with : per

need help please

Hi My program is to send data using an online form. I have the web page for the form. But the web page does not receive the data from the cgi file. I check my work in DOS. When I type perl -c bonus.cgi I get a message tell me syntax ok. But when I check with : perl -w bonus.cgi I get th

RE: WinXP copy-paste, was RE: A little help please?

> Not quite. There seems to be at least one extra step. With XP, you have to > call up a menu and select 'mark' before selecting. I can't recall at the > moment whether you have to do menu selctions to paste at the insertion point. > In 2K, you can select text by dragging. If there is text sele

Re: WinXP copy-paste, was RE: A little help please?

Guay Jean-Sébastien wrote: > > [...] inclding copy-and-paste [though the XP version is > > intentionally more of a pain-in-the-ass than the > > W2K version, as with almost every professional > > aspect of the OS]. > > Err, not really sure what you mean by this. I have found it's precisely the > s

WinXP copy-paste, was RE: A little help please?

> [...] inclding copy-and-paste [though the XP version is > intentionally more of a pain-in-the-ass than the > W2K version, as with almost every professional > aspect of the OS]. Err, not really sure what you mean by this. I have found it's precisely the same in WinXP as in Win2k. Care to expl

Re: a little help please?

On Sat, Jan 31, 2004 at 08:51:00AM -0500, Joel wrote: > What I meant about the command prompt was "Are all the command prompts the > same? Also, could running the Activeperl software damage my system at all > since it is using a command prompt? Hmm, it looks like you have been told the whole 'the c

Re: A little help please?

Joel wrote: > I'm interested in learning to program perl, and I just got ActivePerl for Windows. I > am running XP and have a few questions. First off, how do I run the interpreter > under Windows, preferably without the XP command prompt? Spend lots of money somewhere on a fancy wrapper, whic

RE: a little help please?

On Sat, 31 Jan 2004, Joel wrote: > > What I meant about the command prompt was "Are all the command prompts the > same? Also, could running the Activeperl software damage my system at all > since it is using a command prompt? > > Thanks, > > Joel Since Perl itself is very powerful, then a "Per

  1   2   >