Firstly, apologies for the double posting of this question.
On Wed, 01 Apr 2009 09:49 +0200, "Thomas Bätzler"
wrote:
> How about (untested):
>
> sub display_board {
> foreach my $ref (@_){
> foreach my $piece ( @$ref ){
> print substr( $piece, -2);
> }
> }
> }
>
> The Perl wa
Richard Hobson wrote:
> Please be patient with this beginner. I have a subrouting as follows,
> that prints out an ASCII representation of chess board
>
> sub display_board {
> foreach (0..7) {
> my $ref = @_[$_];
> foreach (0..7) {
> my $pi
Hi,
Please be patient with this beginner. I have a subrouting as follows,
that prints out an ASCII representation of chess board
sub display_board {
foreach (0..7) {
my $ref = @_[$_];
foreach (0..7) {
my $piece = $ref->[$_];
Richard Hobson wrote:
Hi,
Hello,
Please be patient with this beginner. I have a subrouting as follows,
that prints out an ASCII representation of chess board
sub display_board {
foreach (0..7) {
my $ref = @_[$_];
That should be:
my $ref = $_[$_];
Or better:
f
On Tue Mar 31 2009 @ 3:32, Richard Hobson wrote:
> It works, but is there a way of combining these lines:
>
> my $piece = $ref->[$_];
> $piece =~ /.*(..$)/;
>
> It feels like this could be done in one step. Is this correct? I'm
> finding that I'm d
Hi,
Please be patient with this beginner. I have a subrouting as follows,
that prints out an ASCII representation of chess board
sub display_board {
foreach (0..7) {
my $ref = @_[$_];
foreach (0..7) {
my $piece = $ref->[$_];
On Tue, 2008-09-23 at 14:05 -0700, Darren Nay wrote:
> Here is the string:
> doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";
> doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN" />
>
> Now, I want to match against that string and retrieve the value of
> doctype-sys
Hey All,
I hope that you can help me. I have been struggling with this issue the past
couple of hours and can't seem to get it to work.
I am trying to get a value through pattern matching.
Here is the string:
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";
doctype-public="-//W3C//DT
;
> Thanks
> Sanket Vaidya
>
>
> -Original Message-
> From: ANJAN PURKAYASTHA [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, September 23, 2008 6:52 AM
> To: beginners@perl.org
> Subject: pattern matching question
>
> here is my problem:
> i have to check the entries
age-
From: ANJAN PURKAYASTHA [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 23, 2008 6:52 AM
To: beginners@perl.org
Subject: pattern matching question
here is my problem:
i have to check the entries of a column and write them out to a file if they
happen to be DNA sequences ie they are exclus
On Mon, 2008-09-22 at 21:21 -0400, ANJAN PURKAYASTHA wrote:
> here is my problem:
> i have to check the entries of a column and write them out to a file if they
> happen to be DNA sequences ie they are exclusively composed of the letters
> A, T, G, C- no spaces or digits.
> the column also happens
-
From: ANJAN PURKAYASTHA [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 23, 2008 6:52 AM
To: beginners@perl.org
Subject: pattern matching question
here is my problem:
i have to check the entries of a column and write them out to a file if they
happen to be DNA sequences ie they are exclusivel
-Original Message-
From: ANJAN PURKAYASTHA [mailto:[EMAIL PROTECTED]
Sent: Tuesday, 23 September 2008 11:22 AM
To: beginners@perl.org
Subject: pattern matching question
here is my problem:
i have to check the entries of a column and write them out to a file if they
happen to be DNA
here is my problem:
i have to check the entries of a column and write them out to a file if they
happen to be DNA sequences ie they are exclusively composed of the letters
A, T, G, C- no spaces or digits.
the column also happens to have other strings that are made of
word/digit/space characters.
i
On Nov 27, Dax Mickelson said:
I am having problems matching ALL possible matches of a string against
another (very large) string. I am doing something like: @LargeArray =
($HugeString =~ m/$Head/ig); Where $Head is an 8 character
string. (Basically I want to get all 16 character lon
Dr.Ruud:
> #!/usr/bin/perl
> use strict; use warnings;
>
> { local ($,, $\) = (':', "\n");
>
> $_ = 'AASDFGHJKL';
> my $Head = '';
>
> print $Head, $1, substr($',0,7) while /(?<=$Head)(.)(?=.{7})/ig;
> }
Revision:
#!/usr/bin/perl
use strict; use warnings;
Dax Mickelson schreef:
> I am having problems matching ALL possible matches of a string against
> another (very large) string. I am doing something like: @LargeArray
> = ($HugeString =~ m/$Head/ig); Where $Head is an 8 character
> string. (Basically I want to get all 16 character long
Dax Mickelson wrote:
> I am having problems matching ALL possible matches of a string against
> another (very large) string. I am doing something like: @LargeArray =
> ($HugeString =~ m/$Head/ig); Where $Head is an 8 character
> string. (Basically I want to get all 16 character long sub
: Monday, November 28, 2005 12:05 PM
To: beginners@perl.org
Subject: Pattern Matching Question
I am having problems matching ALL possible matches of a string against
another (very large) string. I am doing something like: @LargeArray =
($HugeString =~ m/$Head/ig); Where $Head is an 8
I am having problems matching ALL possible matches of a string against
another (very large) string. I am doing something like: @LargeArray =
($HugeString =~ m/$Head/ig); Where $Head is an 8 character
string. (Basically I want to get all 16 character long substrings out of
$HugeString wh
Hi Chris,
Thanks for your detailed email and for your time. I
think my second email crossed your email. The book I
read on Perl did not mention anything about first and
second half, and that didnt explain, me that we were
replacing all upsto last / by nothing. I thought it is
replacing with / itsel
On Sun, 19 Jun 2005, MEENA SELVAM wrote:
> can anyone please explain?
See `perldoc perlre`, or `man perlre`, or a book like _Learning Perl_ or
_Mastering Regular Expressions_ for this kind of thing.
It's really an introductory question that any decent introductory text
should be able to cover
Hi ,
in $prog =~ s/^.*\///;
is it trying to substitute all characters until the
last / within $prog?
meena
--- MEENA SELVAM <[EMAIL PROTECTED]> wrote:
> Hi,
>
> can anyone please explain?
>
> In the following code snippet, what is the meaning
> of
> the pattern match
> s/^.*\///
>
> $prog = $
Hi,
can anyone please explain?
In the following code snippet, what is the meaning of
the pattern match
s/^.*\///
$prog = $0;
$prog =~ s/^.*\///
i did not get details when i searched in google
thanks,
meena
Yahoo! Sports
R
On Thu, 23 Dec 2004, John McCormick wrote:
> i'm trying to figure out how to split a file delimited
> by commas and newlines.
> @data = split (/\n|\,/, )
> the only problem is that some of the data fields are
> strings enclosed in double quotes, and within some of
> those double quotes are more
- Original Message -
From: "John McCormick"
i'm trying to figure out how to split a file delimited
by commas and newlines.
@data = split (/\n|\,/, )
the only problem is that some of the data fields are
strings enclosed in double quotes, and within some of
those double quotes are more com
> i'm trying to figure out how to split a file delimited
> by commas and newlines.
Sounds like a CSV file to me, and for those you look on
CPAN for a ready made solution.
http://search.cpan.org/search?query=CSV&mode=module
Jonathan Paton
--
#!perl
$J=' 'x25 ;for (qq< 1+10 9+14 5-10 50-9 7+13 2
i'm trying to figure out how to split a file delimited
by commas and newlines.
@data = split (/\n|\,/, )
the only problem is that some of the data fields are
strings enclosed in double quotes, and within some of
those double quotes are more commas. that's too
tricky for me. how do i do that?
th
-Original Message-
From: bob ackerman [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 28, 2002 11:32 AM
To: richard noel fell
Cc: [EMAIL PROTECTED]
Subject: Re: pattern matching question
On Thursday, February 28, 2002, at 08:37 AM, richard noel fell wrote:
> while (defined($L
-Original Message-
From: richard noel fell [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 28, 2002 10:38 AM
To: [EMAIL PROTECTED]
Subject: pattern matching question
I have the following bit of code:
#!/usr/bin/perl -w
open In2,"/home/rfell/tutoring/beaven/webproject/tmp/maxim
On Thursday, February 28, 2002, at 08:37 AM, richard noel fell wrote:
> while (defined($Line=)){
> if($Line=~/(\(D\d+\))\s*(\w*)/){
> print "==> $2\n";
> };
> };
>
disclaimer: i am a rank newbot
if i replace '/w*' with '.*$'
i get desired text.
looks like \w* doesn't do what we expect.
probl
I have the following bit of code:
#!/usr/bin/perl -w
open In2,"/home/rfell/tutoring/beaven/webproject/tmp/maxima_log" or die
"Cannot open maxima_log:$!";
my $Line;
while (defined($Line=)){
if($Line=~/(\(D\d+\))\s*(\w*)/){
print "==> $2\n";
};
};
#close In2;
maxima_log is the following
GCL (
32 matches
Mail list logo
