That seemed to do it and Thanks very much. I need to get out the Friedl's book and
see exactly what the last part means.
Again, thanks much.
Wags ;)
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Saturday, February 09, 2002 21:09
To: Wagner-Davi
On Feb 9, Wagner-David said:
> The system I am working on has setup for named processes as
>$. What I am doing is converting a number of scripts to Perl and
>trying to make it easier to do.
>
> The format is as stated and I have done a chomp on the line.
That's why your regex fai
The system I am working on has setup for named processes as $. What I am
doing is converting a number of scripts to Perl and trying to make it easier to do.
The format is as stated and I have done a chomp on the line.
A line could look like:
$A212
Steve Doerr wrote:
>
> Greetings! Could someone here offer a tip about declaring a file
> variable that is itself part variable?
>
> I can't seem to find an example of this online and I hope someone here
> could help.
>
> I'd like to put a path variable in the declaration, but can't seem to
>
Chris Zampese wrote:
>
> From: "John W. Krahn" <[EMAIL PROTECTED]>
> >
> > use File::Copy;
> >
> > open OLD, "< $old" or die "Cannot open '$old' $!";
> > binmode OLD;
> > open NEW, "> $new" or die "Cannot open '$new' $!";
> > binmode NEW;
> > copy( \*OLD, \*NEW ) or die "Cannot copy '$old' to '$n
On Feb 9, Wagner-David said:
> $ description
> $ description [,;]
>$ description nnn,nnn
> $ description [,;]nnn,nnn
> $ description nnn,nnn[,;]nnn,nnn
>
> /^\s*\$(\w+)\s+(.+)\s+([,;\s]{0,}(\d{1,3}\s*,{1}\s*\d{0,3}))*/gi
What exactly are you trying to extract? I thi
I have a field which can be setup like:
$ description
$ description [,;]
$ description nnn,nnn
$ description [,;]nnn,nnn
$ description nnn,nnn[,;]nnn,nnn
I am trying to use this format:
/^\s*\$(\w+)\s+(.+)
- Original Message -
From: "John W. Krahn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, February 10, 2002 10:03 AM
Subject: Re: rename a file in win98
> > I have also tried using File::Copy but it doesnt copy the last line of
the
> > file.
> > My file is created by printin
Greetings! Could someone here offer a tip about declaring a file
variable that is itself part variable?
I can't seem to find an example of this online and I hope someone here
could help.
I'd like to put a path variable in the declaration, but can't seem to
get it to work.
What would the proper
Chris Zampese wrote:
>
> > From: "Chris Zampese" <[EMAIL PROTECTED]>
> >
> > Just wondering if anyone has any bright ideas on how to rename a file in
> > Win98. I have tried the following...
> >
> > my $old="C:/sentslips/sentslipstemp.txt";
> > my $new="C:/sentslips/sentslips1.txt";
> >
> > rena
On Feb 9, filson said:
>Indeed, but assigning a list like this:
>
>($first, $second) = qw/ blabla /
>
>or what ever is equivalent with a array assignment, would make $second
>undef, right?
>If this happens like a thousand times, I might get currious how much memory
>perl would use for something l
Indeed, but assigning a list like this:
($first, $second) = qw/ blabla /
or what ever is equivalent with a array assignment, would make $second
undef, right?
If this happens like a thousand times, I might get currious how much memory
perl would use for something like the undef value.
kind regar
On Feb 9, filson said:
>This might sound silly, but how much memory is allocated for a undef
>scalar? Is any set aside for some sort of indexing or what?
Perhaps you should consider scoping your variables more precisely.
Declare your variables where you need them to exist, not at the very top
of
Use module File::Find along with -d filename ( if true then directory ) I
believe the doc accompanying File::Find should be sufficient to get you started, but
if problems, come back to the list.
Wags ;)
-Original Message-
From: Joe Collins [mailto:[EMAIL PROTECTED]]
Sent: Satur
This might sound silly, but how much memory is allocated for a undef scalar? Is any
set aside for some sort of indexing or what?
Filip
On Feb 9, Matt C. said:
>my @array=split; #split on space by default
>$HASH{ $array[0] } = @array[1,2];
>
># Above is the slice. Notice the @arry[1,2]; it's in array context.
No, it's in scalar context.
$x = @array[1,2];
is like
$x = ($array[1], $array[2]);
which sets $x to
Hi,
My goal is to find all the directories on my computer and sort them
by size order as my PC harddrive is rapidly filling up and I am sure I have
some junk on it taking up boatloads of space.
I know I have to use stat() to get the file size (after I open it). My
questions are:
1-Has anybody
I had problem installing mods and getting them noticed.
I went to http://search.cpan.org
there I type in the mod I'm looking for and then download that
bundle to my /tmp dir.
gunzip and untar then read the README for info and install
according to their instructions.
Usually
perl Makefile.pl
make
m
--- Oskar Norin <[EMAIL PROTECTED]> wrote:
> I having trouble to use Net:Telnet:Cisco lib because it
> exits the program when its not able to connect to a host.
> How can I a prevent it from exiting and just read the
> error message and continue with the next host.
eval {
# Do code
}
if ($@)
I having trouble to use Net:Telnet:Cisco lib because it exits the program
when its not able to connect to a host.
How can I a prevent it from exiting and just read the error message and
continue with the next host.
/Oskar
Sweden
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
> Okay, I'll play:
>
> cd /home/slutz/temp; perl -nle '(rename $ARGV,
> "bad_email/$ARGV" or die $!)
> and print "Moved $ARGV" and close ARGV if
> /looking_glass\@telus\.net/' *.BAD
>
> If you don't have to die on bad rename()s then you can
> just:
>
> perl -nle 'rename $ARGV, "bad_email/$ARGV
This example shows an array slice, which can be very useful from time to time
(although the example Briac wrote saves a step). This would make a good one liner.
#!/usr/local/bin/perl -w
use strict;
my %HASH;
while(){
my @array=split; #split on space by default
$HASH{ $array[0] } = @array
On Sat, 09 Feb 2002 13:49:59 +, Terri Harrison
<[EMAIL PROTECTED]> wrote:
> What do I do so that the Name is the key and the Species and Gender
> together are the value?
You were not too far from what you wanted to do.
#!/usr/bin/perl -w
use strict;
my %zoo;
while (){
chomp;
> - Original Message -
> From: "Chris Zampese" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, February 10, 2002 12:57 AM
> Subject: rename a file in win98
>
>
> Just wondering if anyone has any bright ideas on how to rename a file in
> Win98. I have tried the following...
If this is my input:
Happy Cat Male
Evil Snake Female
Patches Dog Male
Bubbles Fish Female
Harley dog Female
Goldy Fish Male
What do I do so that the Name is the key and the Species and Gender together
are the value?
while (<>) {
chomp;
%chars = split(' ', $_);
$chars{
Just wondering if anyone has any bright ideas on how to rename a file in Win98. I
have tried the following...
my $old="C:/sentslips/sentslipstemp.txt";
my $new="C:/sentslips/sentslips1.txt";
rename($old, $new);
But no luck, the sctipt runs without errors (I am running with the -w switch a
Hello
Can you please..
1. suggest me where I can get more details information regarding this module
?
2. give me name of some good site of Code for that module
Thanking You In advance .
Abhra
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi All,
Recently, I've started using perl modules. I found
that if I download a perl module and install it in the
same directory as that of the module name, I can run
my perl programs , which uses that module, ONLY from
that directory and NOT from OTHER directories.
Can anybody help me where I
Hi All
In the below script we can print event details into console window by
debug_spin(1).
Now how can I print those event details in a text file ?
__
use strict;
use Win32::OLE;
use Win32::ActAcc;
sub main
{
print "\n"."a
29 matches
Mail list logo
