Hi Chris,
On Sun, 19 Aug 2012 08:49:25 -0500
Chris Stinemetz perlqu...@gmail.com wrote:
Hello List,
I have input data such as far below:
I would like to read the data into an array and modify the 2nd index
if the 0th and first indices are identical.
I would like the updated 2nd index to
Chris Stinemetz wrote in message news
Hello List,
I have input data such as far below:
I would like to read the data into an array and modify the 2nd index if the
0th and first indices are identical.
I would like the updated 2nd index to be an average of the 2nd index where
both occurences of
Chris Charley wrote in message
Chris Stinemetz wrote in message news
Hello List,
I have input data such as far below:
I would like to read the data into an array and modify the 2nd index if
the
0th and first indices are identical.
I would like the updated 2nd index to be an average of
于 2010-12-15 1:38, Jim Gibson 写道:
or the File::Find module to find files without resorting
to the use of separate processes and shell commands.
Me second.
File::Find is your friend.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail:
or the File::Find module to find files without resorting
to the use of separate processes and shell commands.
Me second.
File::Find is your friend.
Also, since you seem to be familiar with find use find2perl and you barely
have to lift a finger. Its like training wheels for File::Find -
On 12/14/10 Tue Dec 14, 2010 9:18 AM, Matt lm7...@gmail.com scribbled:
I am assigning a number of elements to an array like so:
my @new = `find /home/*/new -cmin 1 -type f`;
That works fine. I would also like to append more lines to that array
from here:
find /home/*/filed -cmin 1
Matt wrote:
I am assigning a number of elements to an array like so:
my @new = `find /home/*/new -cmin 1 -type f`;
That works fine. I would also like to append more lines to that array
from here:
find /home/*/filed -cmin 1 -type f
How do I do that without losing whats in the array already?
On Mon, Mar 30, 2009 at 2:20 PM, ANJAN PURKAYASTHA
anjan.purkayas...@gmail.com wrote:
Hi,
Here is my problem;
I have a series of arrays with 0s and 1s. here is an example: (1, 0, 1, 1).
I need to parse through this series of arrays and extract the index of the
0s in the array.
Is there any
On Mon, Mar 30, 2009 at 14:20, ANJAN PURKAYASTHA
anjan.purkayas...@gmail.com wrote:
Hi,
Here is my problem;
I have a series of arrays with 0s and 1s. here is an example: (1, 0, 1, 1).
I need to parse through this series of arrays and extract the index of the
0s in the array.
Is there any
On Mon, Mar 30, 2009 at 14:28, Rodrick Brown rodrick.br...@gmail.com wrote:
snip
Millions of ways here is one:
snip
my $pos = 0;
for my $index (@arr) {
if ( $index == 0 ) {
printf (%d , $pos );
}
$pos++;
}
snip
If you are going to go with a full bore for loop, you might as well
ANJAN PURKAYASTHA wrote:
Hi,
Hello,
Here is my problem;
I have a series of arrays with 0s and 1s. here is an example: (1, 0, 1, 1).
I need to parse through this series of arrays and extract the index of the
0s in the array.
Is there any quick way of doing this?
$ perl -le'
my @array = ( 1,
On Tue, 31 Mar 2009 04:49:17 +1000, John W. Krahn jwkr...@shaw.ca wrote:
Or instead of using arrays you could store the 1s and 0s in strings:
$ perl -le'
my $string = 10110111001;
print $-[0] while $string =~ /0/g;
'
1
4
8
9
Hi John,
Could you explain how the above code works please? I
Dave Tang wrote:
On Tue, 31 Mar 2009 04:49:17 +1000, John W. Krahn jwkr...@shaw.ca wrote:
Or instead of using arrays you could store the 1s and 0s in strings:
$ perl -le'
my $string = 10110111001;
print $-[0] while $string =~ /0/g;
'
1
4
8
9
Could you explain how the above code works
Paul Lalli wrote:
On Feb 26, 11:07 am, [EMAIL PROTECTED] (Irfan Sayed) wrote:
Hello All,
I have two arrays contains exact no. of elements. Now what I need to do
is , I want to execute certain commands to each elements of the array at
a time.
It means that I want take first element of first
On Tue, Feb 26, 2008 at 10:07 AM, [EMAIL PROTECTED] wrote:
Hello All,
I have two arrays contains exact no. of elements. Now what I need to do
is , I want to execute certain commands to each elements of the array at
a time.
@array1 = (1,2,3);
@array2 = (4,5,6);
for (my $i=0; $i
On Tue, Feb 26, 2008 at 8:07 AM, [EMAIL PROTECTED] wrote:
Hello All,
I have two arrays contains exact no. of elements. Now what I need to do
is , I want to execute certain commands to each elements of the array at
a time.
It means that I want take first element of first array and
On Feb 26, 11:07 am, [EMAIL PROTECTED] (Irfan Sayed) wrote:
Hello All,
I have two arrays contains exact no. of elements. Now what I need to do
is , I want to execute certain commands to each elements of the array at
a time.
It means that I want take first element of first array and first
John W. Krahn wrote:
for (my $i = 0; $i @arry; $i++) {
splice (@arry, $i, 1, split (' ', $arry[$i], 1));
}
How does that populate the @new_array variable?
Mine doesn't populate @new_array. It takes the original array and
replaces it with the equivalent of everyone else's @new_array :-)
Timothy Johnson schreef:
if I had my way, I'd remove
[...] the default variable $_.
But why would you want that?
#!/usr/bin/perl
use strict;
use warnings;
sub say
{
print +(@_ ? @_ : $_), $/ ;
1
}
say for 'A' .. 'Z' ;
for ( 'a' .. 'z' ) { say } ;
for my $c ( 'A' .. 'Z' ) { say $c }
M. Kristall wrote:
John W. Krahn wrote:
for (my $i = 0; $i @arry; $i++) {
splice (@arry, $i, 1, split (' ', $arry[$i], 1));
}
How does that populate the @new_array variable?
Mine doesn't populate @new_array. It takes the original array and
replaces it with the equivalent of everyone
for (my $i = 0; $i @arry; $i++) {
splice (@arry, $i, 1, split (' ', $arry[$i], 2));
}
If one of the elements of @arry contains one two three then using 2 will
add the two elements one and two three instead of the three elements
one, two and three so you may still be left with elements
Oh, yes, a special case. I have long ago abandoned special cases since
they lead to errors. Note that `perldoc -f split` starts with:
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split
Note: no strings. Strings do not work well when used as the pattern for
Mr. Shawn H. Corey wrote:
On Tue, 2006-09-05 at 01:33 +0200, Paul Johnson wrote:
Um, that's not quite correct.
See `perldoc -f split` for details.
Oh, yes, a special case. I have long ago abandoned special cases since
they lead to errors. Note that `perldoc -f split` starts with:
split
On Tue, 2006-09-05 at 01:30 -0700, John W. Krahn wrote:
Anything used as a pattern is a string. See the Quote and Quote-like
Operators section of perlop:
Huh?
Do you mean all strings can be used as a pattern?
split( quotemeta( $split_string ), $data_string );
Or that patterns are built
chen li wrote:
I have an arry like this:
@arry=('AA bb','BB','CC AG')
How do I turn it into new array like this:
TMTOWTDI
@new_array=('AA','bb','BB','CC','AG')
my @new_array = split ' ', @arry;
Both line codes work perfectly:
my @new_array = map { split } @arry;
or
my @new_array =
M. Kristall wrote:
chen li wrote:
I have an arry like this:
@arry=('AA bb','BB','CC AG')
How do I turn it into new array like this:
TMTOWTDI
@new_array=('AA','bb','BB','CC','AG')
my @new_array = split ' ', @arry;
Both line codes work perfectly:
my @new_array = map { split } @arry;
Mr. Shawn H. Corey wrote:
On Tue, 2006-09-05 at 01:30 -0700, John W. Krahn wrote:
Anything used as a pattern is a string. See the Quote and Quote-like
Operators section of perlop:
Huh?
Do you mean all strings can be used as a pattern?
A pattern is a string. Perl does string interpolation
--- John W. Krahn [EMAIL PROTECTED] wrote:
Mr. Shawn H. Corey wrote:
On Tue, 2006-09-05 at 01:33 +0200, Paul Johnson
wrote:
Um, that's not quite correct.
See `perldoc -f split` for details.
Oh, yes, a special case. I have long ago abandoned
special cases since
they lead to
Mr. Shawn H. Corey schreef:
John W. Krahn:
Anything used as a pattern is a string. See the Quote and
Quote-like Operators section of perlop:
Huh?
Do you mean all strings can be used as a pattern?
split( quotemeta( $split_string ), $data_string );
Or that patterns are built from
chen li wrote:
--- John W. Krahn [EMAIL PROTECTED] wrote:
$ perl -le'
my $string = q[ a b c d ];
print join \t, map $_, split q[\s+],
qq[$string], q[4];
print join \t, map $_, split /\s+/,
$string,4;
'
a b c d
a b c d
$ perl -le'
my $w = 3;
my $x
On Tue, 2006-09-05 at 09:05 -0700, John W. Krahn wrote:
I don't understand what you are trying to say.
I saying this should work:
split '+', 'this+is+a+test';
Yes, I know how to fix it. I'm saying it _should_ work, not that it
does. If split is followed by a string, the string should be
On Tue, 2006-09-05 at 18:33 +0200, Dr.Ruud wrote:
One exception: the pattern / / does not work like the pattern ' '.
But it should, that's my point.
--
__END__
Just my 0.0002 million dollars worth,
--- Shawn
For the things we have to learn before we can do them, we learn by doing
On Tue, 2006-09-05 at 09:44 -0700, chen li wrote:
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split
1. I check the perldoc -f split but I am not quite
sure what EXPR really means. Does it refer to a
string, or a scalar variable contaning a string, or an
array?
Mr. Shawn H. Corey wrote:
On Tue, 2006-09-05 at 09:05 -0700, John W. Krahn wrote:
I don't understand what you are trying to say.
I saying this should work:
split '+', 'this+is+a+test';
Yes, I know how to fix it. I'm saying it _should_ work, not that it
does. If split is followed by a
On Tue, 2006-09-05 at 18:33 +0200, Dr.Ruud wrote:
One exception: the pattern / / does not work like the pattern ' '.
But it should, that's my point.
Are you proposing that the special case be removed? If so, PLEASE NO! I
use that special case in almost every script I write, and if they
On Tue, 2006-09-05 at 11:23 -0700, Bryan R Harris wrote:
Are you proposing that the special case be removed? If so, PLEASE NO! I
use that special case in almost every script I write, and if they removed it
I would probably shed tears over it.
Don't worry; they won't. Well, maybe in Perl6; I
-Original Message-
From: Bryan R Harris [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 09, 2006 11:24 AM
To: Beginners Perl
Subject: Re: array question
On Tue, 2006-09-05 at 18:33 +0200, Dr.Ruud wrote:
One exception: the pattern / / does not work like the pattern ' '.
But it should
On Tue, 2006-09-05 at 11:52 -0700, Timothy Johnson wrote:
It's the Perl
equivalent of having to remember 'I before E except after C...'.
'.. except where it's not.'
E.g:
height
weight
sex
(OK, I included 'sex' just to get your attention.)
--
__END__
Just my 0.0002 million
Mr. Shawn H. Corey schreef:
Dr.Ruud:
One exception: the pattern / / does not work like the pattern ' '.
But it should, that's my point.
Not for / / vs. ' ', because that is a special case. It is far too late
to change the special case to undef or whatever.
I like your example that shows
On Tue, 2006-09-05 at 11:52 -0700, Timothy Johnson wrote:
It's the Perl
equivalent of having to remember 'I before E except after C...'.
'.. except where it's not.'
E.g:
height
weight
sex
(OK, I included 'sex' just to get your attention.)
On some platforms:
perl -e
On Tue, 2006-09-05 at 14:54 -0700, Bryan R Harris wrote:
Regarding Timothy's thoughts, I tend to believe perl wouldn't be as popular
if the use strict pragma defaulted to on. I don't code in C because it's
too hard to get all the little details right. Perl is very forgiving, and
for my needs
On Tue, May 09, 2006 at 11:52:26AM -0700, Timothy Johnson wrote:
As much as I would hate to make you cry, if I had my way, I'd remove
that as well as the default variable $_. It would be like the first
time you had to convert all of your scripts to use the strict pragma,
but in the end it
You could cycle through the array and use split() to split each element
by whitespace and then append the result to the @new_array array using
push();
-Original Message-
From: chen li [mailto:[EMAIL PROTECTED]
Sent: Monday, May 08, 2006 12:58 PM
To: beginners@perl.org
Subject: array
On Mon, 2006-08-05 at 12:58 -0700, chen li wrote:
Hi all,
I have an arry like this:
@arry=('AA bb','BB','CC AG')
How do I turn it into new array like this:
@new_array=('AA','bb','BB','CC','AG')
Do you mean to break the elements on whitespace?
my @new_array = map { split } @arry;
On Mon, 2006-08-05 at 22:35 +0200, Dani Pardo wrote:
On 5/8/06, Mr. Shawn H. Corey [EMAIL PROTECTED] wrote:
Do you mean to break the elements on whitespace?
my @new_array = map { split } @arry;
Sorry but, can you explain the brackets? I just don't get it. Wich is
the difference from
chen li wrote:
Hi all,
Hello,
I have an arry like this:
@arry=('AA bb','BB','CC AG')
How do I turn it into new array like this:
@new_array=('AA','bb','BB','CC','AG')
my @new_array = split ' ', @arry;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL
I have an arry like this:
@arry=('AA bb','BB','CC AG')
How do I turn it into new array like this:
@new_array=('AA','bb','BB','CC','AG')
my @new_array = split ' ', @arry;
Both line codes work perfectly:
my @new_array = map { split } @arry;
or
my @new_array = split ' ',
On Mon, 2006-08-05 at 15:15 -0700, chen li wrote:
Both line codes work perfectly:
my @new_array = map { split } @arry;
or
my @new_array = split ' ', @arry;
The second statement will work perfectly if every element has only one
space character separating its components and has no leading or
On Mon, May 08, 2006 at 07:07:14PM -0400, Mr. Shawn H. Corey wrote:
On Mon, 2006-08-05 at 15:15 -0700, chen li wrote:
Both line codes work perfectly:
my @new_array = map { split } @arry;
or
my @new_array = split ' ', @arry;
The second statement will work perfectly if every element
Mr. Shawn H. Corey schreef:
chen li:
Both line codes work perfectly:
my @new_array = map { split } @arry;
or
my @new_array = split ' ', @arry;
The second statement will work perfectly if every element has only one
space character separating its components and has no leading or
trailing
On Tue, 2006-09-05 at 01:33 +0200, Paul Johnson wrote:
Um, that's not quite correct.
See `perldoc -f split` for details.
Oh, yes, a special case. I have long ago abandoned special cases since
they lead to errors. Note that `perldoc -f split` starts with:
split /PATTERN/,EXPR,LIMIT
Mr. Shawn H. Corey wrote:
On Mon, 2006-08-05 at 15:15 -0700, chen li wrote:
Both line codes work perfectly:
my @new_array = map { split } @arry;
or
my @new_array = split ' ', @arry;
The second statement will work perfectly if every element has only one
space character separating its
Boris Volf wrote:
Can anyone help with this
I have the following array:
1,1040209458
2,1040328655
3,1040847094
4,1041030406
5,1042093756
I need to create a script that goes through this array(@temp_array), and
creates various output files
Boris Volf wrote:
Can anyone help with this
I have the following array:
1,1040209458
2,1040328655
3,1040847094
4,1041030406
5,1042093756
I need to create a script that goes through this array(@temp_array), and
creates various output files
Can anyone help with this
I have the following array:
1,1040209458..
WRITE CONTENTS OF AN ARRAY TO OUTPUT FILES
for ($i=0; $i $num_of_files; $i++){
open(OUT,$file_$seq_num.txt);
foreach $item (@temp_array){
#
# I NEED
Can anyone help with this
I have the following array:
1,1040209458
2,1040328655
3,1040847094
4,1041030406
5,1042093756
I need to create a script that goes through this
array(@temp_array), and
creates various output files with N
PROTECTED]
Sent: Saturday, May 15, 2004 6:40 AM
Subject: Re: Array Question
Luinrandir Hernsen wrote:
Can I do something like this?
perldoc -q quoting
@CityA=Suburb1, Suburb2, Suburb3;
@CityB=Suburb1, Suburb4, Suburb5;
I don't think the above is doing what you think
Chris wrote:
my %found = ();
foreach (@emails) { $found{$_}++ };
foreach (@exclude) { exists $found{$_} and delete $found{$_} }
Too complicated. Check Wolf's suggestion:
$unwanted{$_} = 1 foreach @exclude;
my @temp;
push @temp
while (my $email = shift @emails) {
push @temp, $email unless
At 07:18 PM 2/26/04 -0500, you wrote:
Hi Guys,
I have a problem with e-mail address's and an array. I have some code that
will be a documentation spider to go through all our technical
documentation, extract e-mail address's and attempt to sort and exclude
certain e-mails/patterns. All
On Friday 27 February 2004 01:18, Chris generously enriched virtual reality by
making up this one:
Hi Guys,
I have a problem with e-mail address's and an array. I have some code that
will be a documentation spider to go through all our technical
documentation, extract e-mail address's and
Hi Anthony,
grabbed this from O'Reilly's Learning Perl :
@rocks = qw/ bedrock slate lava /;
foreach $rock (@rocks) {
$rock = \t$rock; # put a tab in front of each element of
@rocks
$rock .= \n; # put a newline on the end of each
}
print The rocks are:\n, @rocks;
Hi Anthony
Anthony Beaman [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Hi! I'm still wallowing in Chapter 3 (Arrays. Why can't I get it?!?!?!?
ARGH!) of Learning Perl on Win32 Systems. I'm trying to create an
exercise but I'm not getting the results that I want. Here's what I'm
Anthony Beaman said:
Hi! I'm still wallowing in Chapter 3 (Arrays. Why can't I get it?!?!?!?
ARGH!) of Learning Perl on Win32 Systems. I'm trying to create an
exercise but I'm not getting the results that I want. Here's what I'm
trying to do:
I'm asking for a list of names:
print
the same results that I've been getting (I know .).
-Original Message-
From: Rob Anderson [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 9:12 AM
To: [EMAIL PROTECTED]
Subject:Re: Array
]
Sent: Wednesday, June 25, 2003 9:13 AM
To: Anthony Beaman
Cc: [EMAIL PROTECTED]
Subject:Re: Array Question
Anthony Beaman said:
Hi! I'm still wallowing in Chapter 3 (Arrays. Why can't I get
will print Wilma Betty because each enter will add a LF.
HTH
richf
-Original Message-
From: Anthony Beaman [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 9:18 AM
To: Paul Johnson
Cc: [EMAIL PROTECTED]
Subject: RE: Array Question
I typed in 3. For example, Sam Mary Joe. I
Anthony Beaman [EMAIL PROTECTED] wrote in message ?
news:[EMAIL PROTECTED]
I typed in 3. For example, Sam Mary Joe. I expect to get I know Mary,
since she's [1] but I'm getting
a blank space. I've tried this on NT and on my 98 machine here at work.
Hmm, are you just putting spaces between your
entries?
Apologies if I'm asking a no-brainer question here, have yet to reach the
chapter on arrays and thought I'd ask considering i'll be using it a lot.
DerekB
-Original Message-
From: Rob Anderson [mailto:[EMAIL PROTECTED]
Sent: 25 June 2003 14:33
To: [EMAIL PROTECTED]
Subject: Re: Array
-
From: Rich Fernandez [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 9:30 AM
To: Anthony Beaman
Cc: [EMAIL PROTECTED]
Subject:RE: Array Question
Hi Anthony
Sorry, I'm a unix guy...ctrl-d works on my unix box.
You might try that instead, just to see :)
richf
-Original Message-
From: Anthony Beaman [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 10:24 AM
To: Rich Fernandez
Cc: [EMAIL PROTECTED]
Subject: RE: Array Question
.
-Original Message-
From: Derek Byrne [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 8:33 AM
To: [EMAIL PROTECTED]
Subject:RE: Array Question
Hi Anthony,
grabbed
Anthony Beaman [EMAIL PROTECTED] wrote:
:
: I still can't grab the element of an array that
: requests user input though.
Forget about the user input part. You're
getting hung up on the wrong concept. The
exercise is about arrays not user input.
HTH,
Charles K. Clarkson
--
Head Bottle
confused you
enough for now... :)
- Alan
-Original Message-
From: Anthony Beaman [mailto:[EMAIL PROTECTED]
Sent: Wednesday, June 25, 2003 11:01
To: [EMAIL PROTECTED]
Subject: RE: Array Question
The plot thickens! I can get it to work if I have a data in the array, such
as my script below
: Wednesday, June 25, 2003 12:34
To: 'Anthony Beaman'; [EMAIL PROTECTED]
Subject: RE: Array Question
Unlike others that are suggesting that you forget about user input, I
thought you might want to see how it can work on Windows. I know that it
would bug me as to how to do this if I were in your position
To: '[EMAIL PROTECTED]'
Cc: Anthony Beaman
Subject:RE: Array Question
Oops, the second batch of code has a problem... It should read:
print Name your friends: ;
$friends = STDIN
Byrne
.
--END--
-Original Message-
From: Anthony Beaman [mailto:[EMAIL PROTECTED]
Sent: 25 June 2003 19:16
To: Perry, Alan; [EMAIL PROTECTED]
Subject: RE: Array Question
Here's what I got when I ran it:
C:\perl hello2.pl
Name your friends: Joe Sam Sally
I know .
(good news
, June 25, 2003 1:38 PM
To: '[EMAIL PROTECTED]'
Cc: Anthony Beaman
Subject:RE: Array Question
Oops, the second batch of code has a problem... It should read:
print Name your friends
In article [EMAIL PROTECTED],
Anthony Beaman wrote:
Here's what I got when I ran it:
C:\perl hello2.pl
Name your friends: Joe Sam Sally
I know .
This has been answered already (you have one item in your array), so
$array[1] is empty.
(good news is that ctrl-z appears to be working
Anthony Beaman wrote:
Ahh...that's it! I didn't realize that. Now it makes sense! Thanks for clearing
this up! Any other advice on getting through this book? Thanks again!
For right now, let this concept absorb deeply.Understanding the cardinal/ordinal
numbering systems and how they
From: Anthony Beaman [EMAIL PROTECTED]
2. Write a program that reads a number and then a list of strings (all
on separate lines), and then prints one of the lines from the list as
selected by the number.
One way to do this is:
print Enter the line number: ; chomp($a = STDIN);
print Enter
]
Subject:Re: Array Question (Learning Perl/Win32 Chapter Test
Question)
From: Anthony Beaman [EMAIL PROTECTED]
2. Write a program that reads a number and then a list of strings
(all
on separate lines), and then prints one
On Jun 20, Anthony Beaman said:
But what's the -1 for? Why not just $b[$a] instead? That's what I'm
confused about.
Arrays start at 0. Thus, the first element of an array is $array[0].
Line numbers (as far as human think of them) start at 1. The first line
is considered line 1. Therefore,
Anthony Beaman wrote:
But what's the -1 for? Why not just $b[$a] instead? That's what I'm confused
about.
Suppose that you want the first line so you enter 1. Because indexing
starts at zero using $b[$a] will print out the second line. If you
enter 4 for the fourth line $b[$a] will print
: Friday, June 20, 2003 1:56 PM
To: Anthony Beaman
Cc: Jenda Krynicky; [EMAIL PROTECTED]
Subject:RE: Array Question (Learning Perl/Win32 Chapter Test
Question)
On Jun 20, Anthony Beaman said:
But what's
PL LAMBALLAIS wrote:
Hello,
I'm working with a GIF generator and I've a little problem using
array as parameters:
This call works perfectly:
$my_graph-set(
markers = [1,2],
# kind of markers (here, 2 markers)
marker_size = $marker_size,
[redirecting back to list. keep the discussions on-list, folks.]
PL LAMBALLAIS wrote:
Well, markers type don't change. :-/
Try this:
http://www.parx.net/cgi-bin/samples/bob_1.pl
and
http://www.parx.net/cgi-bin/samples/bob_2.pl
(force refresh as it display a generated GIF so running the
Bob Showalter a *crit :
[redirecting back to list. keep the discussions on-list, folks.]
Yes :-)
PL LAMBALLAIS wrote:
Well, markers type don't change. :-/
Try this:
http://www.parx.net/cgi-bin/samples/bob_1.pl
and
http://www.parx.net/cgi-bin/samples/bob_2.pl
(force refresh
Allison, Check out pages 133 - 135 in Learning Perl (3rd Edition) - the
section AutoIncrement and Autodecrement section _ particularly the top of
page 135 has an example for just this very question! I just read that last
week so it popped right up in my mind.
If you don't have the book,
You could always put them into a hash and then put them into an array later.
foreach(@names){
$hash{$_} = 1;
}
my @array = keys %hash;
-Original Message-
From: Allison Ogle [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 01, 2002 8:08 AM
To: a a
Subject: Array question
Hi,
I have
On Mon, 1 Apr 2002, Allison Ogle wrote:
I don't know how long the list is and eventually in the list some of
the names will repeat. I want to put these names in an array but I
don't want to repeat any names in the array and I want to keep a count
of how many times the name appears in the
Here's my solution.
There will be shorter ways. I am new to perl, so this is how did it.
At the prompt do
$array-prob.pl datafile
#!/usr/bin/perl
#File name : array-prob.pl
my @arr;
while()
{
chomp($_);
$field{$_}++;
print $_ $field{$_}\n;
my $set = 0;
On Monday, April 1, 2002, at 11:11 , Aman Raheja wrote:
$array-prob.pl datafile
p1: I loved the
$field{$_}++;
p2: but since you have stashed it all in a Hash, why not
unpack the hash with
my @arr = keys(%field);
the counter proposal
Thanks for your help. I finally got it to work.
Allison
-Original Message-
From: drieux [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 01, 2002 3:44 PM
To: [EMAIL PROTECTED]
Subject: Re: Array question
On Monday, April 1, 2002, at 11:11 , Aman Raheja wrote:
$array-prob.pl datafile
try
if (defined @array) {
# do something
} else {
# It's not been created, do something else
}
HTH
John
-Original Message-
From: Michael D. Risser [mailto:[EMAIL PROTECTED]]
Sent: 28 March 2002 13:55
To: [EMAIL PROTECTED]
Subject: Array question...
OK here's the problem:
I
On Thursday 28 March 2002 08:54 am, you wrote:
OK here's the problem:
I have an array that may or may not have been assigned to, if it has been
assigned to I need to do one thing, otherwise I need to do something else.
I've tried many variations, but I'm having trouble determining if it has
On Thu, 2002-03-28 at 08:54, Michael D. Risser wrote:
OK here's the problem:
I have an array that may or may not have been assigned to, if it has been
assigned to I need to do one thing, otherwise I need to do something else.
I've tried many variations, but I'm having trouble determining
This is work
my @array = ( 1, 2, 3, 4 );
print $#array; --- size of array.
p
-Original Message-
From: Chris Zampese [mailto:[EMAIL PROTECTED]]
Sent: Sunday, February 10, 2002 5:19 AM
To: [EMAIL PROTECTED]
Subject: array question
Hi all,
Just wondering if someone could direct me
--- Pankaj Warade [EMAIL PROTECTED] wrote:
my @array = ( 1, 2, 3, 4 );
print $#array; --- size of array.
No, that is wrong. $#array gives the index of the last
element, which is one less than the number of elements.
Use this instead:
print scalar @array;
Jonathan Paton
On Wed, 13 Feb 2002 at 02:29 GMT, Pankaj Warade wrote:
This is work
my @array = ( 1, 2, 3, 4 );
print $#array; --- size of array.
Actually, $#array holds the indices of the last element, not the size
of the array. @array in scalar context returns the number of elements
in the array
On Tue, 12 Feb 2002, Pankaj Warade wrote:
This is work
my @array = ( 1, 2, 3, 4 );
print $#array; --- size of array.
No, $#array is the index of the last element of the array. To get the
size of an array, just put the array into a scalar context:
my $size = @array;
print scalar(@array);
1 - 100 of 108 matches
Mail list logo
