Wiggins d Anconia [EMAIL PROTECTED] wrote:
Hi, this question has to do with importing names from one package into
another. In my case, both packages reside in the same file, and I
simply want to import all the package-global symbols from the one
package into the other. Can anyone say how to
On 1/27/2004 7:50 PM, [EMAIL PROTECTED] wrote:
Hi all:
I'm trying to determine how long an system operation takes. Anyone know
of a simple way to do this ?
I wanted to establish the start time. Then run the operation. Then mark
the finish time. Then substract the start time from the
Thanks for all the suggestions. This is a very helpful list.
Charles K. Clarkson wrote:
Jan Eden [EMAIL PROTECTED] wrote:
:
: I tried to stuff the following two lines into one, but did
: not succeed:
:
: my($teilnehmer) = $eingabe =~ m/(?=Teilnehmer:\n\n)(.+)/s;
: my(@teilzeilen) = split
Since 0 is always false and all other numbers are true, the returned number of
elements can indicate success at the same time. My admiration for the the way Larry
Wall thinks is growing by the minute.
- Jan
Tim Johnson wrote:
Just a small correction: In scalar context it returns 1 because
Rob Dixon wrote:
You need to declare the list of hashes and arrays /before/ and
/outside/ any subroutine that needs them. Like this:
my (%author_indexlines, %author_headlines, ... );
sub read_index {
:
}
sub read_poem {
:
}
That's the way I had done it before. But I thought I'd fiddle
Hi,
I tried embedding perl into C, and inserted these coz i had an error prior to this one
***
static void xs_init _((void));
EXTERN_C void boot_DynaLoader _((CV* cv));
EXTERN_C void boot_Socket _((CV*
Jeff 'japhy' Pinyan wrote:
On Jan 27, Jan Eden said:
I have a subroutine which fills into several hashes and arrays
(%author_indexlines, %poem_lines, @alphabet_index etc). How can I
return those variables and pass them to another subroutine?
[snip]
I thought that this might be achieved
This is probably a stupid question, but does anyone know how to force
the output of print to actually PRINT, without forcing me to use a \n?
It's sort of futile to print a '.' every 60 seconds to indicate the
app hasn't crashed if the line of periods doesn't show up on the
screen until a half
Dear Friends,
How do I format the decimals, i.e, if there is no
decimal part, then add .00, if there is one decimal,
then add '0'.
For eg., how to convert 123 to 123.00
and 123.5 to 123.50.
Thanks in advance,
Mallik.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
On Thu, 29 Jan 2004, Mallik wrote:
How do I format the decimals, i.e, if there is no
decimal part, then add .00, if there is one decimal,
then add '0'.
For eg., how to convert 123 to 123.00
and 123.5 to 123.50.
sprintf
Try this
-
On Jan 27, Jan Eden said:
I have a subroutine which fills into several hashes and arrays
(%author_indexlines, %poem_lines, @alphabet_index etc). How can I return
those variables and pass them to another subroutine? This does not work,
of course
sub read_index {
blablabla
return
On Jan 27, Jan Eden said:
my($teilnehmer) = $eingabe =~ m/(?=Teilnehmer:\n\n)(.+)/s;
As far as I can tell, there is no need for a look-behind in this regex.
my ($teilnehmer) = $eingabe =~ /Teilnehmer:\n\n(.+)/s;
should be sufficient.
my(@teilzeilen) = split /\n/, $teilnehmer;
As for
On Jan 28, Jan Eden said:
sub read_index {
my $gedicht_path = shift;
my (%author_indexlines, %author_headlines, %gedicht_lines, @author_letters,
@gedicht_letters, @alphabet_index);
find (\read_poem, $gedicht_path);
print %author_indexlines; # nothing is printed out here!
The
On Jan 28, [EMAIL PROTECTED] said:
Hi, this question has to do with importing names from one package into
another. In my case, both packages reside in the same file, and I simply
want to import all the package-global symbols from the one package into
the other. Can anyone say how to do this?
Michael W . Cocke wrote:
This is probably a stupid question, but does anyone know how to force
the output of print to actually PRINT, without forcing me to use a \n?
It's sort of futile to print a '.' every 60 seconds to indicate the
app hasn't crashed if the line of periods doesn't show
Mallik wrote:
Dear Friends,
Hello,
How do I format the decimals, i.e, if there is no
decimal part, then add .00, if there is one decimal,
then add '0'.
For eg., how to convert 123 to 123.00
and 123.5 to 123.50.
printf %.2f\n, $_ for 123, 123.5;
John
--
use Perl;
program
fulfillment
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, January 28, 2004 11:51 AM
To: [EMAIL PROTECTED]
Subject: How to calculate elapsed time ?
Hi all:
I'm trying to determine how long an system operation takes.
Anyone know
of a simple way
Sam wrote:
Rob wrote:
Sam wrote:
1. I wasn't clear on $_ in my email; that's being read elsewhere in
program so it's already set by the time print_lines is called.
You /mustn't/ use $_ like that. It's meant to be an 'it' in places like
What? You want me to pass the line around
Hi folks,
I've got the following code which works, but generates the error message
following it. I've tried varying the code to eliminate the error but I only
manage to get either the working code with error or non-working code without
error.
(Line 95 is the while line)
print checking
On Jan 29, 2004, at 8:07 AM, Gary Stainburn wrote:
Hi folks,
I've got the following code which works, but generates the error
message
following it. I've tried varying the code to eliminate the error but
I only
manage to get either the working code with error or non-working code
without
Gary Stainburn wrote:
Hi folks,
I've got the following code which works, but generates the error
message following it. I've tried varying the code to eliminate the
error but I only manage to get either the working code with error or
non-working code without error.
(Line 95 is the while
Off topic but this list seems to be filled with Linux gurus. Can someone
point me to some info on how to setup a Linux VPN server that will let M$
and Mac clients attach. Off list please.
Now back to our regularly scheduled program...
What are some decent perl Mac editors?
Can you tell I just
On Jan 29, Gary Stainburn said:
I've got the following code which works, but generates the error message
following it. I've tried varying the code to eliminate the error but I only
manage to get either the working code with error or non-working code without
error.
It's not an error message,
On Thursday 29 Jan 2004 2:25 pm, James Edward Gray II wrote:
On Jan 29, 2004, at 8:07 AM, Gary Stainburn wrote:
Hi folks,
I've got the following code which works, but generates the error
message
following it. I've tried varying the code to eliminate the error but
I only
manage to
On Jan 29, 2004, at 8:19 AM, Paul Kraus wrote:
What are some decent perl Mac editors?
For my money, BBEdit is the best software investment I ever made.
http://www.barebones.com/
I love emacs but it seems so far I am only able to run it under a
terminal
window. I like how everything in Mac uses
James Edward Gray II wrote:
On Jan 29, 2004, at 2:18 AM, Jan Eden wrote:
I am not sure if I could store all this in one hash:
I bet you can. I'm an optimist. ;)
I haven't been following this thread too closely, but let's just think
about it in the general sense. What you basically has is
Paul Kraus wrote:
Now back to our regularly scheduled program... What are some decent
perl Mac editors? Can you tell I just purchased a Mac :) I love
emacs but it seems so far I am only able to run it under a terminal
window. I like how everything in Mac uses the same movement commands
as emacs.
John W. Krahn wrote:
Instead of using eval inside of a loop it is a
lot faster if you eval the whole loop.
# slow
my $expr = '/$regex/';
while ( FILE ) {
if ( eval $expr ) {
do { something() };
}
}
# a lot faster
my $loop = 'LOOP';
while ( FILE ) {
if (
Can anybody explain the functionality of eval in brief?
Thanks in advance,
Mallik.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
On Wed, 28 Jan 2004, Jeff 'japhy' Pinyan wrote:
When you read a line from a filehandle, Perl stores the line number in $.,
so you can use that to your advantage:
while (FILE) {
if ($. = $start and $. = $end) {
print; # or do whatever
}
}
What's even better,
On Jan 29, 2004, at 9:08 AM, Jan Eden wrote:
And you get Perl 5.8.2 with any new Mac (with Mac OS 10.3, that is)!
Sorry to nit pick, but Mac OS X 10.3 comes with Perl 5.8.1-RC3 compiled
with threading options.
James
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
On Jan 29, Mallik said:
Can anybody explain the functionality of eval in brief?
For starters, please read 'perldoc -f eval'. All Perl functions are
explained in detail in the standard documentation.
eval() has two forms. The first takes a string, and treats it as Perl
code. It compiles and
On Jan 28, John McKown said:
On Wed, 28 Jan 2004, Jeff 'japhy' Pinyan wrote:
while (FILE) {
if (10 .. 20) {
print; # displays lines 10 through 20
}
}
Wouldn't the following be slightly faster?
while (FILE) {
next if $. $start;
last
It evaluates the code that you give it. It can be used when you need to
create code on the fly, like this...
my $cmd = 'print';
my $arg = 'Hello World';
eval($cmd '$arg');
This is useful for allowing a user to pass code to the program (for whatever
reason).
The other use it to trap errors.
my
http://www.perldoc.com/perl5.8.0/pod/func/eval.html
Bradley
-Original Message-
From: Mallik [mailto:[EMAIL PROTECTED]
Sent: Thursday, January 29, 2004 7:26 AM
To: Perl Beginners
Subject: What is eval?
Can anybody explain the functionality of eval in brief?
Thanks in advance,
Mallik.
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] (Mallik) writes:
Dear Friends,
I need to write a Perl CGI script that connects to
a website (like Yahoo) and change the Password for
my user. I don't want to do it manually. It should
be handled by the script.
Please suggest any idea/code
On Jan 27, 2004, at 6:59 AM, Michael W.Cocke wrote:
This is probably a stupid question, but does anyone know how to force
the output of print to actually PRINT, without forcing me to use a \n?
did you try
$| = 1;
cf perldoc perlvar
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
Jeff 'Japhy' Pinyan wrote:
while (FILE) {
print small if 1 .. 10;
print medium if 6 .. 15;
print big if 11 .. 20;
print \n;
}
Careful here Jeff. '..' compares its operands with $.
(current record number) in a scalar context.
Rob
--
To unsubscribe, e-mail: [EMAIL
On Jan 29, 2004, at 2:18 AM, Jan Eden wrote:
I am not sure if I could store all this in one hash:
I bet you can. I'm an optimist. ;)
I haven't been following this thread too closely, but let's just think
about it in the general sense. What you basically has is a lot of
information about
On Jan 28, 2004, at 11:24 PM, [EMAIL PROTECTED] wrote:
[..]
my circumstance is that I have a 10,000 line standalone command-line
Perl program which I am refactoring into working as both a web app
(Apache+Mod_perl+MySQL) and a command-line app. I'm not yet clear on
what either the file or
On Wed, 28 Jan 2004 15:37:12 -0500
RL [EMAIL PROTECTED] wrote:
I would like to zip a file using perl script. I used following
command:-
system (zip zip name file name);
However this command fails when the filename is more than 8
characters.
Why not try Archive::Zip instead
Hello,
I am trying to get the specs for files in a remote directory. I need to be
able to get the name of the file, file size and the date the file was
updated.Then put it all in a text file that can be emailed.
Does anyone know where I can go to get an example of how to do this. I am
working on
Hallo,
i m using perl for parsing the queries in xml files, so i have written two
seperate progarms one is local.pl and the other one is inter.pl. The
fisrt program gets the list of proteins from first xml file gives as an output,
and now i want to use this output of loca.pl as the input for
Hallo,
i m using perl for parsing the queries in xml files, so i have written two
seperate progarms one is local.pl and the other one is inter.pl. The
fisrt program gets the list of proteins from first xml file gives as an
output,
and now i want to use this output of loca.pl as the input for
Hello everyone,
I have:
@one = qw(A B C D);
@two = qw(E F G H);
I want to build a multidimensional array from the above arrays. I want
to put @one in the first column of the array. I want to put @two in
the second column of the array.
I want the resulting MDA to look like:
@mda = (
Mallik wrote:
Can anybody explain the functionality of eval in brief?
There are two different flavors of eval().
The string version looks like this:
eval $code;
And it treats its argument as a string containing Perl source code,
which it compiles and executes.
The block version looks like
Perldoc -f stat
You can use paths like this in perl
\\remoteserver\c\path
Don't forget to escape the \\ in double quote context.
remoteserver\\c\\path
HTH,
Paul Kraus
---
PEL Supply Company
Network Administrator
-Original Message-
From: Brian Brown
Hello,
I am trying to get the specs for files in a remote directory. I need to be
able to get the name of the file, file size and the date the file was
updated.Then put it all in a text file that can be emailed.
Does anyone know where I can go to get an example of how to do this. I am
On Jan 29, Rob Dixon said:
Jeff 'Japhy' Pinyan wrote:
while (FILE) {
print small if 1 .. 10;
print medium if 6 .. 15;
print big if 11 .. 20;
print \n;
}
Careful here Jeff. '..' compares its operands with $.
(current record number) in a scalar context.
Yes, I know.
On Jan 29, Kevin Old said:
@one = qw(A B C D);
@two = qw(E F G H);
@mda = (
[A][E],
Do you mean [A, E]?
[B][F],
[C][G],
[D][H]
);
If so, this is how I'd do it:
@mda = map [ $one[$_], $two[$_] ], 0 .. $#one;
If you need an explanation, feel free to ask.
Off topic but this list seems to be filled with Linux gurus. Can someone
point me to some info on how to setup a Linux VPN server that will let M$
and Mac clients attach. Off list please.
Now back to our regularly scheduled program...
What are some decent perl Mac editors?
Can you tell
Paul == Paul Kraus [EMAIL PROTECTED] writes:
Paul Off topic but this list seems to be filled with Linux gurus.
Off topic but this list seems to be filled with people who speak
English. Can someone tell me a good book for learning how to write?
Now see how silly that is. Please don't
Jeff 'japhy' Pinyan wrote:
On Jan 29, Rob Dixon said:
Jeff 'Japhy' Pinyan wrote:
while (FILE) {
print small if 1 .. 10;
print medium if 6 .. 15;
print big if 11 .. 20;
print \n;
}
Careful here Jeff. '..' compares its operands with $.
(current record
On Jan 29, 2004, at 6:26 AM, Mallik wrote:
Can anybody explain the functionality of eval in brief?
perldoc -f eval
James
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Karen wrote:
Hi,
I tried embedding perl into C, and inserted these coz i had an error prior
to this one
***
static void xs_init _((void));
EXTERN_C void boot_DynaLoader _((CV* cv));
EXTERN_C
Paul Off topic but this list seems to be filled with Linux gurus.
Off topic but this list seems to be filled with people who speak
English. Can someone tell me a good book for learning how to write?
Come on now. It had a perl question very relevant and a side note that if
someone
On Jan 29, Kevin Old said:
On Thu, 2004-01-29 at 12:34, Jeff 'japhy' Pinyan wrote:
On Jan 29, Kevin Old said:
@one = qw(A B C D);
@two = qw(E F G H);
Well, no that wasn't what I was looking for, but it's a nice piece of
code to add to my arsenal. That basically puts the contents of @one in
Dear Perl Gurus,
What is the difference between Use and Require.
Thanks,
Malliks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Does perl have a goto command. For example if you tell scrip to do
something and it returns a 1 then it should go to a block of code that
does something else.
Thanks,
Thomas Browner
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Thu, 2004-01-29 at 12:34, Jeff 'japhy' Pinyan wrote:
On Jan 29, Kevin Old said:
@one = qw(A B C D);
@two = qw(E F G H);
@mda = (
[A][E],
Do you mean [A, E]?
[B][F],
[C][G],
[D][H]
);
If so, this is how I'd do it:
@mda = map [
Kevin Old wrote:
I have:
@one = qw(A B C D);
@two = qw(E F G H);
I want to build a multidimensional array from the above arrays. I want
to put @one in the first column of the array. I want to put @two in
the second column of the array.
I want the resulting MDA to look like:
@mda = (
Mallik wrote:
What is the difference between Use and Require.
See
perldoc -f use
perldoc -f require
Why do you ask?
/R
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
For Quality purpouses, Thomas Browner 's mail on Thursday 29 January 2004
18:46 may have been monitored or recorded as:
Does perl have a goto command. For example if you tell scrip to do
something and it returns a 1 then it should go to a block of code that
does something else.
Not talking
Rob Dixon wrote:
Jeff 'Japhy' Pinyan wrote:
while (FILE) {
print small if 1 .. 10;
print medium if 6 .. 15;
print big if 11 .. 20;
print \n;
}
Careful here Jeff. '..' compares its operands with $.
(current record number) in a scalar context.
Hm. Why doesn't it
Thomas Browner wrote:
Does perl have a goto command. For example if you tell scrip to do
something and it returns a 1 then it should go to a block of code that
does something else.
Yes. But I've never seen a case where I think it should be used.
Perl isn't a scripting language. (Although it
Sub dothissubroutine {
Do something
If return this
Else return this
}
My $result = dothissubroutine
If $result = this
}elsif
This
}else{
This
}
Paul Kraus
---
PEL Supply Company
Network Administrator
-Original Message-
Why not just make it a sub, so you perform the sub and continue on from there:
if ( sub1() ) {
# return of true
sub2();
}else {
# return false, so do something else or nothing
}
Wags ;)
-Original Message-
From: Thomas
James Edward Gray II wrote:
On Jan 29, 2004, at 6:26 AM, Mallik wrote:
Can anybody explain the functionality of eval in brief?
perldoc -f eval
How succinct!
/R
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Hi,
sounds similar to my recent problem. You could
1. turn both programs into subroutines and use the return function at the end of the
input subroutine to pass the arguments:
second_sub(first_sub());
2. Or you could use a closure, as Jeff recommended, to merge the second program into
the
Mallik wrote:
What is the difference between Use and Require.
See
perldoc -f use
perldoc -f require
Why do you ask?
/R
Wow such a civilized answer. Some would say...
S R Q I R E
This is such a nice list.
Time to revisit:
This is an example of the range operator '..' , which works with operands
on either side.
In a scalar context, if either operand is a numeric literal, it is compared
to $. , which contains the current line number of the input file.
e.g. next if (5 .. /^Foo/); # skips lines 5 up to first
On Thu, 2004-01-29 at 14:17, Rob Dixon wrote:
but /please/ go back a few steps and explain what you want you're
trying to do. I doubt that putting characters 'A' .. 'H' into
an array is your goal. What you're starting with and what end you
have in mind is fundamental. Abstract as little as you
Hi Friends,
I am presently working on an Automation project where I am using Active
state perl as the programming language on windows platform. For the
above mentioned project I am using Perl/Tk for the GUI. I created a Text
Widget and wanted to show the output from my perl code on the text
Mallik wrote:
What is the difference between Use and Require.
See
perldoc -f use
perldoc -f require
Why do you ask?
/R
Wow such a civilized answer. Some would say...
S R Q I R E
Who is Senior Qire?
This is such a nice list.
Time to revisit:
Mallik,
I think I am just two to three weeks ahead of you in the learning curve. But what I
know, I learned from O'Reilly's Learning Perl, Learning Perl References, Objects
and Modules and from checking Programming Perl from time to time. The Perl
Cookbook is great for finding real life
Yes, that's what Rob said and I know the range operator in general, but I just cannot
find some principled explanation or hint to this behaviour in Programming Perl. Did
you discover it by accident?
- Jan
Tim wrote:
This is an example of the range operator '..' , which works with
operands on
Hello,
I am trying to use Net::SSH::Perl to send a few commands to a remote
server and I already have the ssh public keys setup as a normal ssh
[EMAIL PROTECTED] command works.
Here is a snip from my code:
[snip]
my @ids = (/path/to/.ssh/id_rsa.pub);
my %params = (
identity_files =
I have written a long running perl application to help me with some trivial
administrative functions. Due to the
volume of logging generated by this application, I am managing its output with
logrotate. The problem I face is that
perl is following the log files that logrotate swaps out.
Sorry, found the documentation.
- Jan
Tim wrote:
This is an example of the range operator '..' , which works with
operands on either side. In a scalar context, if either operand is a
numeric literal, it is compared to $. , which contains the current
line number of the input file.
e.g. next
It does not appear that this module would solve my problem. It won't handle the JavaScript
generation of cookies.
Kevin Old wrote:
Have you look at WWW::Mechanize on CPAN. It seems to make navigating
sites (virtually) and using forms, etc. much easier.
It's worth a shot.
HTH,
Kevin
On Wed,
For Quality purpouses, Mallik 's mail on Thursday 29 January 2004 18:57 may
have been monitored or recorded as:
Dear Perl Gurus,
that must be someone else
What is the difference between Use and Require.
try perldoc -f use on your box (or www.perldoc.com):
use Module VERSION LIST
I have written my HTML code to where it uses POST to collect information.
Where do I start to write a script that collects the data from the web
site, places the input into a dbm file, then places a 1 next to it like an
array? Some of the data in the file will have zeros, while the ones that
are
From: RL [EMAIL PROTECTED]
I am new and am lost with Win32::Process stuff.
I want on perl script to start a process, then another perl script to
terminate the same process.
---
I can search for that process using...
For Quality purpouses, PerlDiscuss - Perl Newsgroups and mailing lists 's mail
on Thursday 29 January 2004 23:49 may have been monitored or recorded as:
I have written my HTML code to where it uses POST to collect information.
Where do I start to write a script that collects the data from the
I have written my HTML code to where it uses POST to collect
information. Where do I start to write a script that collects
the data from the web site, places the input into a dbm file,
use CGI 'param';
my $email = param('email');
dbm file??
perldoc -f open
then places a 1 next to it like
Hi,
I want to write a perl script to do something like this
Abc 12.8 8 left 1 15.7
Def 13.8 9 top 0 19.7
gef 14.8 9 left 0 19.7
Dgf 12.3 9 right 4 99.6
cef 16.8 4 right 0 89.7
baf 32.8 7 bottom 5 79.8
efg 16.8 5 right 0 56.7
etg 12.8 2 left 7 34.7
Just say I want to sort
On 1/27/2004 9:55 PM, Trina Espinoza wrote:
So this may be wishful thinking, but I would be kicking myself later if I didn't ask. Is there a function in perl where you give
the function exact line numbers and it would only read the data in the range of lines you gave it? My other alternative
What is happening is that once a file has been opened, the handle points
to the inode which is an internal number. This number is unique for
a filesystem and identifies the file regardless of its name in the
directory. That is why your Perl program is following the old name.
Anyway,
What you
I have to run, otherwise I would elaborate a bit.
The code is below. Check out the perldoc perlreftut for what the
[EMAIL PROTECTED], @{$row}, and $a-[2] means. Check out perldoc -f sort for
what the sort {...} @rows means. And of course ask questions if you get
stuck (but take a look at the
Here is a shot without checks and assumes the data will be numeric(sorting on
column 3):
#!perl -w
use strict;
my @MD = ();
while ( DATA ) {
chomp;
next if ( /^\s*$/ );
push (@MD, $_);
}
foreach my $MyData (sort {$a-[3] = $b-[3]}
map{ [$_,
Jan Eden wrote:
BTW, accessing $1 like this implies that $1, $2 ... form an array. How can it be
accessed as a whole?
my @matches = /($regex)/g;
my @matches = /hard-coded random stuff(.*) boilerplate(.*)more unwanted (.*)/;
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
AWESOME! That's *EXACTLY* what I needed! I didn't realize I could use logrotate for
tasks other than, well, just
rotating logs. Thanks!!
- Original Message -
From: John McKown [EMAIL PROTECTED]
To: Perl Beginners Mailing List [EMAIL PROTECTED]
Sent: Thursday, January 29, 2004 5:43 PM
Hello,
New Perl programmer here. I am using HTML::TokeParser to parse HTML files.
It is really very useful. In particular, I use the get_trimmed_text()
function quite a bit to extract tag-free text from HTML files.
I usually use the function in this fashion:
$x = $p -
Michael W.Cocke wrote:
This is probably a stupid question, but does anyone know how to force
the output of print to actually PRINT, without forcing me to use a \n?
{
local $| = 1;
...code for which you need output autoflushed
}
{
local $| = 1;
my $total = 0;
for (1..10) {
I have a function that takes a fairly complex set of arguments, and am
wondering if there is a better way of doing this than the way I have
done. A call to the function, as I have it, looks like:
$network-potentiateWeights('network',1,(0,0,0,
1,2,3,
Owen is dead on, but I think we can do that with less code. Try
something like:
printf (%0.2f\n, $_) while ();
Regards,
Adam
On Jan 29, 2004, at 5:25 AM, Owen Cook wrote:
On Thu, 29 Jan 2004, Mallik wrote:
How do I format the decimals, i.e, if there is no
decimal part, then add .00, if there
I'd be interested in seeing the error message if you could provide it.
Given your message, the only problem I could see with this code is if
the file's name had spaces. For example, if you attempted to zip a file
named `my grocery list.xls`. You would need to wrap the zip name in
single quotes
[EMAIL PROTECTED] wrote:
Hi Friends,
I am presently working on an Automation project where I am using Active
state perl as the programming language on windows platform. For the
above mentioned project I am using Perl/Tk for the GUI. I created a Text
Widget and wanted to show the output
Hey there, what is a nice way of doing what this looks like it should
do:
@a=([1,2,3],[5,5,5],[9,8,7]);
@b=([5,5,5],[1,2,3]);
@[EMAIL PROTECTED]@b;
and have @c == ([1,2,3]);
Is there a good way of doing this? (I've tried the obvious things on the
command line, to no avail). I could probably
PerlDiscuss - Perl Newsgroups and mailing lists wrote:
This is what that gets me:
Error Type:
PerlScript Error (0x80004005)
Global symbol $Server requires explicit package name
Scrch!--Boom, crash!! Hold it, you had folks on a complete red herring
here. Compiler errors are a much
1 - 100 of 109 matches
Mail list logo