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 m...@richardhobson.com 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) {
Firstly, apologies for the double posting of this question.
On Wed, 01 Apr 2009 09:49 +0200, Thomas Bätzler
t.baetz...@bringe.com wrote:
How about (untested):
sub display_board {
foreach my $ref (@_){
foreach my $piece ( @$ref ){
print substr( $piece, -2);
}
}
}
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 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 doing
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:
]
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 exclusively composed of the letters
A, T, G, C- no spaces
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 to
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 exclusively composed of the letters
A, T, G, C
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 exclusively composed of the letters
A, T, G, C- no spaces or digits.
the column also happens to have
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:
xsl:output method=html encoding=utf-8 indent=yes
On Tue, 2008-09-23 at 14:05 -0700, Darren Nay wrote:
Here is the string:
xsl:output method=html encoding=utf-8 indent=yes
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
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
-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
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
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;
my
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
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
: 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
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
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
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 = $0;
$prog
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 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 /
i'm trying to figure out how to split a file delimited
by commas and newlines.
@data = split (/\n|\,/, infile)
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
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=CSVmode=module
Jonathan Paton
--
#!perl
$J=' 'x25 ;for (qq 1+10 9+14 5-10 50-9 7+13 2-18
- Original Message -
From: John McCormick
i'm trying to figure out how to split a file delimited
by commas and newlines.
@data = split (/\n|\,/, infile)
the only problem is that some of the data fields are
strings enclosed in double quotes, and within some of
those double quotes are
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|\,/, infile)
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
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=In2)){
if($Line=~/(\(D\d+\))\s*(\w*)/){
print == $2\n;
};
};
#close In2;
maxima_log is the following
GCL (GNU
On Thursday, February 28, 2002, at 08:37 AM, richard noel fell wrote:
while (defined($Line=In2)){
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
problems with
-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/maxima_log
-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($Line=In2
32 matches
Mail list logo
