NAME
beginners-faq - FAQ for the beginners-cgi mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email
Hi guys,
many moons ago when I was a complete novice on perl...(only a little more advance now,
but at least I have some scripts running and modifying them as need be..) I had a
version of perl that ran on my pc as though it were a web servernot through the
command line.
Although it is
Use Internet Information Server (IIS) its an add on from the Windows 2000
CD, this will act as your web server.
To configure perl on your machine (Win2000), - right click on my computer
icon - click on properties - click on advanced - click on environment
variables
- On the System variables -
Hi,
I want to change the profile path to a bulk of users with a Perl script.
Have tried this:
Win32::AdminMisc::UserSetMiscAttributes
USER_PROFILE
got this:
Can't locate Win32/AdminMisc/UserSetMiscAttributes.pm in @INC.
Why is that so, while Win32::AdminMisc is installed!?
Tried
Hi all,
I want to store alignment results( that is why I asked about struct yesterday). I
thougt that I could just
push seq1 seq2 and the score to an array and can acess them by using $k*3 + $n ($n=0
for seq1
I've googled all over the place and yet to come up with an example that
would help this newbie do what he wants to do. I have a text file in the
following format:
1 value1
2 value2
3 value3
4 value4
...
30 value 30
I can load it into an array quite easily but how can I load it into a hash?
-Original Message-
From: R. Joseph Newton [mailto:[EMAIL PROTECTED]
Sent: Monday, 23 February 2004 4:50 PM
To: Westcott Andrew-AWESTCO1
Cc: '[EMAIL PROTECTED]'
Subject: Re: Help with end of line charaters
Westcott Andrew-AWESTCO1 wrote:
Hi,
I'm new to perl but need to
Öznur tastan wrote:
I want to store alignment results( that is why I asked about struct yesterday).
I thougt that I could just push seq1 seq2 and the score to an array and can
acess them by using $k*3 + $n ($n=0 for seq1 $n =2 for score)
But I also have a sort of grouping of the alignment
Hi folks.
I'm moving on with my Trainset project and I've got to the point where I want
to develop Trainset::Tk to create a user interface for someone setting in a
signalbox.
To do this, I've created Trainset/Tk.pm as below, and included a
use Trainset::Tk;
in my Trainet.pm. The problem I
Andrew Westcott wrote:
I'm new to perl but need to write a script that takes a file and formats
lines.
The file has to 2 fields that are tab separated and each field is made up of
items separated by some type of linefeed character. The end of the second
field is identified by another type
On Mon, Feb 23, 2004 at 11:29:50AM +, Gary Stainburn wrote:
Is there a way to only 'use Trainset::Tk' conditionally, or even better, have
it auto-detect the availability and simply ignore it if it's not there.
I do that in the following fashion:
BEGIN { eval use Trainset::Tk } # We'll
R. Joseph Newton wrote:
Maybe you should do a binary/text dump of the file. Chose a set of meanguful
printing characters to print as character, printi anything outside of this range
as hex. Something like:
I like that: 'meanguful'. I shall have to try to fir it into my conversation :)
David Le Blanc wrote:
use Dumper::HexDump;
That's
Data::HexDump
:)
print HexDump( $whole_durn_thang );
Makes for very pretty output, if you like that sort of thing..
You may need to put Dumper::HexDump from CPAN
(as in :
% perl -MCPAN -e shell
cpan install Dumper::HexDump
)
Rob
Dennis Gray [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]
I've googled all over the place and yet to come up with an example that
would help this newbie do what he wants to do. I have a text file in the
following format:
1 value1
2 value2
3 value3
4 value4
...
30 value 30
I
Rob Dixon [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]
znur tastan wrote:
I want to store alignment results( that is why I asked about struct yesterday).
I thougt that I could just push seq1 seq2 and the score to an array and can
acess them by using $k*3 + $n ($n=0 for seq1
Rob Dixon [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]
Dennis Gray [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]
I've googled all over the place and yet to come up with an example that
would help this newbie do what he wants to do. I have a text file in the
Rob Dixon wrote:
[Siamese software]
Please ignore the stuff from the first up to the second 'use strict' :/
/R
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Öznur tastan wrote:
Rob Dixon [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED]
Öznur tastan wrote:
I want to store alignment results( that is why I asked about struct yesterday).
I thougt that I could just push seq1 seq2 and the score to an array and can
acess them by
Öznur tastan wrote:
[stuff]
Just one more thing. It would help those of us who have threading
news client software to /reply/ to a previous post in the newsgroup.
Thanks,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
David le Blanc wrote:
From: Andrew Gaffney [mailto:[EMAIL PROTECTED]
Sent: Monday, 23 February 2004 12:35 AM
To: David le Blanc
Cc: [EMAIL PROTECTED]
Subject: Re: parsing Makefiles
David le Blanc wrote:
From: Andrew Gaffney [mailto:[EMAIL PROTECTED]
Sent: Sunday, 22 February 2004 6:09 PM
To:
Hi,
You have solved my problem, the key was in your script. I had not been
reading the file in binary mode and so the different LF and CR where getting
lost.
Thanks
I did run the script you sent which was very help full and I will store that
away as I'm sure it will come in use.
Script output
HI
One local resident perl expert (speaking at a LUG) suggested modifying use
of the strict pragma with vars, as in :
#!/usr/bin/perl -w
use strict vars;
I find however that it's necessary to put 'vars' in quotes to avoid a
warning message, viz.:
Unquoted string vars may clash with
- Original Message -
From: Rob Dixon [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, February 23, 2004 3:30 PM
Subject: Re: how to push a double dimensional array
znur tastan wrote:
Rob Dixon [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
znur tastan wrote:
#!/usr/bin/perl -w
use strict ;
use POSIX ; # i need POSIX for some calculations not shown here
# variable declarations went here
open (fh1, /path/to/filename) or die (nope) ;
# sample of layout of fh1 :03/06/1997 sold 1000 widget1 0.230 0.00
# part number in this case is widget1;
Hi Guys,
I'm running the following code under w2k command-line:
$| = 1; #Autoflush
print Test\r;
sleep 2;
print OK;
and the output is
OKst
Eh, how can I delete the whole privious print output
Thanks a lot...
... and all you helpful guys what you are doing is great and
you have my full
--- several lines stripped out ---
# everything works well up to here
# what i want to do is loop through the sorted unique part numbers array
and print out all the array elements in @all_of_them that have a part
number that matches that unique value. i then move onto the next
On 02/23/04 09:42, J Ingersoll wrote:
HI
One local resident perl expert (speaking at a LUG) suggested modifying use
of the strict pragma with vars, as in :
#!/usr/bin/perl -w
use strict vars;
I find however that it's necessary to put 'vars' in quotes to avoid a
warning message, viz.:
On 02/23/04 10:41, daniel wrote:
Hi Guys,
I'm running the following code under w2k command-line:
$| = 1; #Autoflush
print Test\r;
sleep 2;
print OK;
and the output is
OKst
Eh, how can I delete the whole privious print output
As you noticed the \r returns the cursor to the beginning of the
On 02/23/04 06:29, Gary Stainburn wrote:
Hi folks.
I'm moving on with my Trainset project and I've got to the point where I want
to develop Trainset::Tk to create a user interface for someone setting in a
signalbox.
To do this, I've created Trainset/Tk.pm as below, and included a
use
On 02/23/04 10:38, Joseph Paish wrote:
--- several lines stripped out ---
# everything works well up to here
# what i want to do is loop through the sorted unique part numbers array
and print out all the array elements in @all_of_them that have a part
number that matches that unique
Andrew Westcott wrote:
You have solved my problem, the key was in your script. I had not been
reading the file in binary mode and so the different LF and CR where getting
lost.
Thanks
I did run the script you sent which was very help full and I will store that
away as I'm sure it will
I'm having a heck of a time getting eval() to obey me this morning and
I thought I would see if I can get a fresh perspective from someone.
Okay, I'm passing a server I wrote some Perl code I want it to eval().
This morning, during testing, I fed it some bad code. It's supposed to
handle
Joseph Paish [EMAIL PROTECTED] wrote:
[snip]
: # everything works well up to here
:
: # what i want to do is loop through the sorted unique part
: numbers array and print out all the array elements in
: @all_of_them that have a part number that matches that
: unique value. i then
Öznur Taþtan [EMAIL PROTECTED] wrote:
:
: - Original Message -
: From: Rob Dixon [EMAIL PROTECTED]
: To: [EMAIL PROTECTED]
: Sent: Monday, February 23, 2004 3:30 PM
: Subject: Re: how to push a double dimensional array
:
:
: I'm losing track again here. /Please/ post a comprehensive
:
Charles K. Clarkson wrote:
Öznur Taþtan [EMAIL PROTECTED] wrote:
:
: - Original Message -
: From: Rob Dixon [EMAIL PROTECTED]
: To: [EMAIL PROTECTED]
: Sent: Monday, February 23, 2004 3:30 PM
: Subject: Re: how to push a double dimensional array
:
:
: I'm losing track again
On Feb 23, 2004, at 10:35 AM, James Edward Gray II wrote:
I believe I have a solution now. I'm going to try switching the way
the system works to eval() to a hash reference, instead of a hash. I
expect that to silence the two original warnings caused by the undef
being returned.
More egg on
NAME
beginners-faq - FAQ for the beginners mailing list
1 - Administriva
1.1 - I'm not subscribed - how do I subscribe?
Send mail to [EMAIL PROTECTED]
You can also specify your subscription email address by sending email to
(assuming [EMAIL PROTECTED] is your email address):
- Original Message -
From: Rob Dixon [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, February 23, 2004 6:51 PM
Subject: Re: how to push a double dimensional array
Charles K. Clarkson wrote:
znur Tatan [EMAIL PROTECTED] wrote:
:
: - Original Message -
: From: Rob
Randy W. Sims wrote:
On 02/23/04 10:38, Joseph Paish wrote:
snipped
for ($ctr = 0 ; $ctr (scalar(@all_of_them)) ; $ctr++) {
You don't need to say 'scalar' as it will be evaluated in the correct
context without it.
$#all_of_them
-Sx-
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Joseph Paish wrote:
code snipped
:) Please use
perl -c program
to test program before posting.
syntax error at t line 12, near ) {
Global symbol @all_of_them requires explicit package name at PROG line 13.
Global symbol @temp_array requires explicit package name at PROG line 15.
syntax
Versions:
Perl 5.6.1
DBI 1.28
DBD::Oracle 1.06
Tk 800.023
I'm trying to learn Tk and have it interact with a database but having
problems passing variables:
use strict;
use Tk;
use DBI;
use DBD::Oracle;
my $main = MainWindow-new();
my $top = $main-Frame()-pack();
my $left =
Öznur Taþtan [EMAIL PROTECTED] wrote:
:
: - Original Message -
: From: Rob Dixon [EMAIL PROTECTED]
: To: [EMAIL PROTECTED]
: Sent: Monday, February 23, 2004 6:51 PM
: Subject: Re: how to push a double dimensional array
:
: Actually I prefered to explain with an example.
: Because the
Andrew Gaffney wrote:
open MAKE, make |;
foreach $line (MAKE) {
$count++;
my $percent = int(($count / $total) * 100);
print ..$percent;
}
Try changing this line:
foreach $line (MAKE) {
to this:
while (defined($line = MAKE)) {
or if you can use $_ instead of $line, then just:
while
zsdc wrote:
Andrew Gaffney wrote:
open MAKE, make |;
foreach $line (MAKE) {
$count++;
my $percent = int(($count / $total) * 100);
print ..$percent;
}
Try changing this line:
foreach $line (MAKE) {
to this:
while (defined($line = MAKE)) {
or if you can use $_ instead of $line, then
Hello,
Is it possible to do this kind of substitute to change ARE in 756, TYP in
978 (not with an if) ...:
$marque =~ s/(ARE|TYR|SPE)/(756|978|840)/;# don't bring the result I
want.
Thank you.
Olivier
--
GMX ProMail (250 MB Mailbox, 50 FreeSMS, Virenschutz, 2,99 EUR/Monat...)
jetzt 3
Is it possible to do this
No, at least not the way you are doing it.
Something like this will work (untested)
my %replacements = (ARE = 756, TYP = 978, SPE = 840);
$marque =~ s/(ARE|TYR|SPE)/$replacements{$1}/;
Rob
-Original Message-
From: Olivier Wirz [mailto:[EMAIL PROTECTED]
Sent:
On 02/23/04 11:56, James Edward Gray II wrote:
On Feb 23, 2004, at 10:35 AM, James Edward Gray II wrote:
I believe I have a solution now. I'm going to try switching the way
the system works to eval() to a hash reference, instead of a hash. I
expect that to silence the two original warnings
On Feb 23, 2004, at 12:59 PM, Randy W. Sims wrote:
The string form of eval does not catch errors.
You sure about that? 'perldoc -f eval' doesn't seem to agree with this
and when I run:
perl -we 'eval q(my $bad_syntax = ;); if ($@) { print Caught error.\n
}'
I get:
Caught error.
Also, you
On 02/23/04 14:18, James Edward Gray II wrote:
On Feb 23, 2004, at 12:59 PM, Randy W. Sims wrote:
The string form of eval does not catch errors.
You sure about that? 'perldoc -f eval' doesn't seem to agree with this
and when I run:
My bad. The docs for eval do say that $SIG{__WARN__} is the
i stripped out a fair chunk of code, including variable declarations to save
space. i thought it would be better that way, if i just put in something
like variable declarations went here instead of listing them all. that
way, only the core code would be shown without cluttering it up with
Andrew Gaffney wrote:
I tried that and it still spits out all the output at the end. Here's my
current code:
#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
my $total = `make -n | wc -l`;
print $total\n;
my ($count, $line);
open MAKE, make | or die Can't open MAKE pipe;
foreach (MAKE) {
zsdc wrote:
Andrew Gaffney wrote:
I tried that and it still spits out all the output at the end. Here's
my current code:
#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
my $total = `make -n | wc -l`;
print $total\n;
my ($count, $line);
open MAKE, make | or die Can't open MAKE pipe;
foreach
James Edward Gray II wrote:
On Feb 23, 2004, at 10:35 AM, James Edward Gray II wrote:
I believe I have a solution now. I'm going to try switching the way
the system works to eval() to a hash reference, instead of a hash. I
expect that to silence the two original warnings caused by the
On Feb 23, 2004, at 1:28 PM, Randy W. Sims wrote:
On 02/23/04 14:18, James Edward Gray II wrote:
On Feb 23, 2004, at 12:59 PM, Randy W. Sims wrote:
The string form of eval does not catch errors.
You sure about that? 'perldoc -f eval' doesn't seem to agree with
this and when I run:
My bad. The
-Original Message-
From: Joseph Paish [mailto:[EMAIL PROTECTED]
Sent: Monday, February 23, 2004 9:18 AM
To: perl_beginner
Subject: error msg : can't use string as an ARRAY ref
SNIP MESSAGE
while (fh1) {
push (@all_of_them, $_ ) ; # an array of all the records in the file
As several have pointed out now, my description of the problem was
involved. Sorry about that. I was showing you a tiny slice of the
3,000 line server where I know the problem is occurring.
However, thanks to the help provided, I managed to simplify the problem
to a small script. We can
On Feb 23, 2004, at 2:39 PM, david wrote:
James Edward Gray II wrote:
On Feb 23, 2004, at 10:35 AM, James Edward Gray II wrote:
I believe I have a solution now. I'm going to try switching the way
the system works to eval() to a hash reference, instead of a hash. I
expect that to silence the
Andrew Gaffney wrote:
zsdc wrote:
Andrew Gaffney wrote:
I tried that and it still spits out all the output at the end. Here's
my current code:
#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
my $total = `make -n | wc -l`;
print $total\n;
my ($count, $line);
open MAKE, make | or die Can't
That doesn't work because \b will bring the cursor back, and not delete
characters. So what you want is
$| = 1; #Autoflush
my $text = Test;
print $text;
sleep 2;
print \b \b x length($text);
print OK;
In a message dated 2/23/2004 11:44:35 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
$|
-Original Message-
From: Randy W. Sims [mailto:[EMAIL PROTECTED]
Sent: Tuesday, 24 February 2004 3:21 AM
To: daniel
Cc: [EMAIL PROTECTED]
Subject: Re: \r -Option
On 02/23/04 10:41, daniel wrote:
Hi Guys,
I'm running the following code under w2k command-line:
$| = 1;
-Original Message-
From: Hanson, Rob [mailto:[EMAIL PROTECTED]
Sent: Tuesday, 24 February 2004 5:43 AM
To: 'Olivier Wirz'; [EMAIL PROTECTED]
Subject: RE: substitution
Is it possible to do this
No, at least not the way you are doing it.
Something like this will work
On Feb 23, 2004, at 5:14 PM, David le Blanc wrote:
-Original Message-
From: Hanson, Rob [mailto:[EMAIL PROTECTED]
Sent: Tuesday, 24 February 2004 5:43 AM
To: 'Olivier Wirz'; [EMAIL PROTECTED]
Subject: RE: substitution
Is it possible to do this
No, at least not the way you are doing it.
On Monday 23 February 2004 18:31, Michael Ragsdale generously enriched virtual
reality by making up this one:
..
Hi Mike,
my $ent =$right-Entry(-width=8,-background='white')-pack(-side='left');
^line 1
my $go = $right-Button(-text='Get
James Edward Gray II [EMAIL PROTECTED] wrote:
:
: On Feb 23, 2004, at 5:14 PM, David le Blanc wrote:
:
: -Original Message-
: From: Hanson, Rob [mailto:[EMAIL PROTECTED]
: Sent: Tuesday, 24 February 2004 5:43 AM
: To: 'Olivier Wirz'; [EMAIL PROTECTED]
: Subject: RE: substitution
:
Hello David,
First of all, thank you very much for taking the effort to help me solve the
problem. Sorry for the delay in my reply.
please do not top post. when you reply to any message, post
your respond
below the relevant text.
Sorry about this. Will make sure I do this future.
like
On Feb 23, 2004, at 2:21 PM, James Edward Gray II wrote:
#!/usr/bin/perl
use strict;
use warnings;
my @strings = ( q(my $bad_syntax = ;),
q('a poorly 'nested' string'),
q('a poorly 'nested::test' string') );
foreach (@strings) {
James Edward Gray II wrote:
code snipped
__END__
What are you saying?
Its not a bug - it doesn't pass
perl -c progname
Cheers!
-Sx-
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On Feb 23, 2004, at 8:28 PM, WC -Sx- Jones wrote:
James Edward Gray II wrote:
code snipped
__END__
What are you saying?
Its not a bug - it doesn't pass
perl -c progname
Are you suggesting that the script I posted does not pass a compile
check? It does on my machine.
The bug I'm talking
James Edward Gray II wrote:
code snipped
__END__
What are you saying?
Its not a bug - it doesn't pass
perl -c progname
it passed on my machine
v5.8.0 built for i386-linux-thread-multi
root$ perl -c test.pl
test.pl syntax OK
not sure what that means to the overall conclusion
James Edward Gray II wrote:
Are you suggesting that the script I posted does not pass a compile
check? It does on my machine.
Yep.
The bug I'm talking about is how eval() prints what looks like die()
messages (though it keeps running) when it tries to compile the third
line. There's a
James Edward Gray II wrote:
my @strings = ( q(my $bad_syntax = ;),
The ;) was converted to a smiley on my system.
G...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On Feb 23, 2004, at 8:37 PM, WC -Sx- Jones wrote:
James Edward Gray II wrote:
Are you suggesting that the script I posted does not pass a compile
check? It does on my machine.
Yep.
Well, I think you're wrong. ;)
The bug I'm talking about is how eval() prints what looks like
die() messages
OK, after correcting the smiley error (Grrr again) the outout I get is:
Code: my $bad_syntax = ;
Disabling warnings...
Calling eval()...
eval() complete.
Handling error...
Caught error: syntax error at (eval 1) line 1, at EOF
Code: 'a poorly 'nested' string'
Disabling warnings...
Calling
zsdc wrote:
Andrew Gaffney wrote:
I tried that and it still spits out all the output at the end. Here's
my current code:
#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
my $total = `make -n | wc -l`;
print $total\n;
my ($count, $line);
open MAKE, make | or die Can't open MAKE pipe;
foreach
On Feb 23, 2004, at 8:51 PM, WC -Sx- Jones wrote:
OK, after correcting the smiley error (Grrr again) the outout I get is:
You're seeing the same thing I am.
Calling eval()...
Bareword found where operator expected at (eval 3) line 1, near 'a
poorly 'nested::test
(Missing operator before
At 06:24 PM 2/23/04, wolf blaum wrote:
On Monday 23 February 2004 18:31, Michael Ragsdale generously enriched
virtual reality by making up this one:
my $ent =$right-Entry-pack;
^line 1
my $go = $right-Button(-command=sub{compute($ent)})-pack;
^line2
MainLoop();
sub compute {
[...]
James Edward Gray II [EMAIL PROTECTED] wrote:
:
[snipped code]
:
: Interesting things to note about the above: All three @strings are
: bad perl code and don't compile. Warnings are disabled when I run
: the eval() and thus, not a part of the equation. (The script runs
: identically if they
On Feb 23, 2004, at 9:31 PM, Charles K. Clarkson wrote:
: Disabling warnings...
: Calling eval()...
: Bareword found where operator expected at (eval 3) line 1, near 'a
: poorly 'nested::test
: (Missing operator before nested::test?)
: String found where operator expected at (eval 3)
James Edward Gray II wrote:
eval() shouldn't be squawking there, as I understand it. Those look
like die() statements to me too, yet the program keeps running. Hmm.
I dont know - I believe we are missing something basic prolly:
# My Version -
#!/usr/bin/perl
use strict;
use warnings;
Randy W. Sims wrote:
I've CC'd p5p for enlightenment simplified your code to the following:
...
I understand the errors, but not the difference in behaviour. I think
this is DWIMish bug in perl, but let's see what more enlightened minds
say before reporting it as such.
My money is on
no
Given -
#!/usr/bin/perl -w
# use strict;
# use diagnostics;
# use warnings;
my @strings = ( q(my $bad_syntax = ;),
q('a poorly 'nested' string'),
q('a poorly 'nested::test' string') );
foreach (@strings) {
# no warnings;
eval;
}
print \n\nProgram
Rob Dixon wrote:
R. Joseph Newton wrote:
Maybe you should do a binary/text dump of the file. Chose a set of meanguful
printing characters to print as character, printi anything outside of this range
as hex. Something like:
I like that: 'meanguful'. I shall have to try to fir it into
Westcott Andrew-AWESTCO1 wrote:
Hi,
You have solved my problem, the key was in your script. I had not been
reading the file in binary mode and so the different LF and CR where getting
lost.
Thanks
I did run the script you sent which was very help full and I will store that
away as I'm
There :)
Now there aren't any errors:
#!/usr/bin/perl -w
use strict;
use warnings;
my @strings = ( q('a poorly 'nested' string'),
q('a poorly 'nested::test' string') );
do {
local $SIG{__WARN__} = sub {
foreach (@strings) {
eval;
Rob Dixon wrote:
OK, but you still haven't solved the problem. Joseph's intent was
to show you how to examine the raw data, but I doubt he would
expect you to process a text file in that way.
...
I really hope that this doesn't fall on deaf ears. So many
people grab hold of anything that
- Original Message -
From: Charles K. Clarkson [EMAIL PROTECTED]
To: 'Öznur Taþtan' [EMAIL PROTECTED]; 'Perl Lists'
[EMAIL PROTECTED]
Sent: Monday, February 23, 2004 7:57 PM
Subject: RE: how to push a double dimensional array
Öznur Taþtan [EMAIL PROTECTED] wrote:
:
: - Original
Andrew Gaffney wrote:
zsdc wrote:
Andrew Gaffney wrote:
I tried that and it still spits out all the output at the end. Here's
my current code:
#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
my $total = `make -n | wc -l`;
print $total\n;
my ($count, $line);
open MAKE, make | or die Can't
Ron Goral wrote:
Here you are treating @all_of_them as a multi-dimensional array, and this is
where the error occurs. Solve this by -
a) Splitting the array element here print if (split / /,
$all_of_them[$ctr] eq $temp1) ;
b) Splitting $_ when you push the data into @all_of_them push
Randy W. Sims wrote:
On 02/23/04 10:41, daniel wrote:
Hi Guys,
I'm running the following code under w2k command-line:
$| = 1; #Autoflush
print Test\r;
sleep 2;
print OK;
and the output is
OKst
Eh, how can I delete the whole privious print output
As you noticed
I've CC'd p5p for enlightenment simplified your code to the following:
my @code = (
q('a poorly 'nested' string'),
q('a poorly 'nested::nested' string'),
);
for (@code) {
eval;
print Caught: $@ if $@;
}
Output is:
Caught: Bad name after nested' at (eval 1) line 1.
Bareword found where
90 matches
Mail list logo
