Thanks for the help, Dave. As it turns out, it was a data problem--I'm
trying to parse an RTF file, and was getting an unexpected style--for
whatever reason, that was knocking the script for a loop.

I'm using MacPerl 5.6.1 on Mac OS 9.2.2. In desperation, I did some
diagnostics on my machine, and discovered the MacPerl preferences file lost
its resource fork--that probably didn't help things, either.

Out of curiosity, is there a module for parsing RTF files? I try to write to
vanilla perl setups, but it I can see where it might be worthwhile in this
instance.

John

http://search.cpan.org/search?query=rtf&mode=all

-----Original Message-----
From: Nestor, John [mailto:[Email Removed]]
Sent: Wednesday, September 03, 2003 9:10 AM
To: [Email Removed]; '[Email Removed]'
Subject: RE: new, exciting error message III


Thanks for the help, Dave. As it turns out, it was a data problem--I'm
trying to parse an RTF file, and was getting an unexpected style--for
whatever reason, that was knocking the script for a loop.

I'm using MacPerl 5.6.1 on Mac OS 9.2.2. In desperation, I did some
diagnostics on my machine, and discovered the MacPerl preferences file
lost its resource fork--that probably didn't help things, either.

Out of curiosity, is there a module for parsing RTF files? I try to
write to vanilla perl setups, but it I can see where it might be
worthwhile in this instance.

John

On Tuesday, September 2, 2003, at 11:51 PM, Bryan Harris wrote:

I am getting the same error, did you get work around.
Thanks, Surinder

"Wagner, David ---
Senior Programmer To: <[Email Removed]>, <[Email Removed]>
Analyst --- WGO" cc:
<David.Wagner@freight Subject: RE: What's the command to find the name of the file being
.fedex.com> executed?


09/03/03 04:44 PM









[Email Removed] wrote:

On Thu, 28 Aug 2003, zsdc wrote:

On Mon, 1 Sep 2003 [Email Removed] wrote:

On Wed, 3 Sep 2003 [Email Removed] wrote:

Does anyone have a code snippet or a module for converting the IIS log file format to NCSA Common?

Cheers,
Nigel

denis <[Email Removed]> offered this solution:

: why not try this?
:
: #!/usr/bin/perl
: my @test='';
: my $string = "C:/test/me";
: @test = split('/',$string);
: print "@testn";
: print "$test[$#test]n";

The last item of an array can be retrieved
using an index of -1.

print "$test[$#test]n";

becomes

print "$test[-1]n";


We don't need an array at all. We can ask split
to return one item:

@test = split('/',$string);
print "$test[-1]n";

becomes

my $scalar = ( split '/', $string )[-1];
print "$scalarn";


If we're going to do this a lot, we could write
a sub routine:

print strip_to_end( '/', 'C:/test/me' ), "n";

sub strip_to_end {
my( $seperator, $string ) = @_;
return ( split $seperator, $string )[-1]
}

Then, if we find a faster method (like 'substr')
we can change the method without effecting the rest
of the program.


HTH,

Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists

--On Wednesday, September 03, 2003 9:20 PM -0600 [Email Removed] wrote:

basename is more convenient i think. What do you say?


Quoting [Email Removed]:

Hi all:

Are these libs: WWW:: Mechanize and HTTP::Cookies in perl or mod_perl?

-rkl

Pablo Fischer writes:

I think it would be easier to skip the split-function and use substr and
rindex insted. It's shorter code.

#!perl -w

my $path = "C:/program files/directory1/directory2/file.txt";
my $filename = substr($path,(rindex($path,"/")+1));
print $filename;

This code will give you "file.txt" as output.

Hope you will find it usefull.

/Freddy

----- Original Message -----
From: <[Email Removed]>
To: <[Email Removed]>
Cc: "Perl Beginners" <[Email Removed]>
Sent: Thursday, September 04, 2003 5:20 AM
Subject: Re: cutting a string

Thanks, I found that but I'm looking for a Perl solution, should be possible with a one liner regex substitution AFAIK.

Cheers,
Nigel

MIS Web Design
http://www.miswebdesign.com/

are you speaking of this?

use strict;
while(my $line = <>) {
($line) = ($line =~ /^s*(.*)s*n$/);
print($line."_nice/n");
}

-----Original Message-----
From: LoneWolf [mailto:[Email Removed]]
Sent: Thursday, September 04, 2003 3:38 PM
To: [Email Removed]
Subject: Getting rid of white space...


I have about 12 files that I am pulling for a SCO box to a RedHat box, FTP.
THe files from the SCO box are poorly formatted with extraneous whitespace
(sometimes as much as 30 or more) before and after the text. I need to
parse all of the files I DL and put them into a new file with "_nice" added
at the end.

The files are all pipe-delimited, so I don't have a problem separating the
fields, I just am not sure how to make it remove all extra whitespace. It
needs to keep all Space in the fields " the description of the
file " should still be readable as "the description of the file"

Any help with code examples? I have been looking through a beginning book
and my old code and have come up nil.

Thanks,
Robert

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

Capturing parameters passed to a perl-script on Windows is done using the
special @ARGV variable.

@ARGV can be checked to see how many parameters were passed to your script,
easily by doing so:

die "blah blah blah " unless @ARGV == 2;

This will make your script die with a message unless there were two
parameters passed to your script from the command line.

If you want to access the actual values of the @ARGV it's done something
like so:

my $first_param = $ARGV[0];
my $second_param = $ARGV[1];

You could also "shift" them in:

my $first_param = shift;
my $second_param = shift;

Hope this will help you out!

/Freddy

----- Original Message -----
From: "Mark Weisman" <[Email Removed]>
To: <[Email Removed]>
Sent: Thursday, September 04, 2003 10:18 AM
Subject: Capturing passed Parameters?


How do you capture passed parameters in Perl on Windows? In regular perl
its:
$variable = param('passed');

However, when I tried to run that under windows, it dies a horrible
death? I've looked through perl.org for more information about
converting over my unix scripts to windows, any other good places out
there for information?

Sincerely in Christ,
Mark-Nathaniel Weisman
President / Owner
Outland Domain Group Consulting
Anchorage / Washington DC / Bellevue
[Email Removed]

[Email Removed] wrote:

mod_perl isn't a language, it is an application server.

If the question is "Is it mod_perl safe?", then that is a different
question. I would think they are, both are OOP, and there is no state that
I am aware of that is outside of the object properties.

Rob

-----Original Message-----
From: rkl [mailto:[Email Removed]]
Sent: Thursday, September 04, 2003 3:40 AM
To: perl
Subject: Re: WWW::Mechanize and Cookies


Hi all:

Are these libs: WWW:: Mechanize and HTTP::Cookies in perl or mod_perl?

-rkl

Pablo Fischer writes:

I have a similar problem to this , does anyone have another answer? Don't know if its just me but The

Got it working this way fror the important line, but theres probably a slicker way of doing it.

$line =~ s/(s)+/ /g;

LoneWolf wrote:

On Thursday, September 04, 2003 11:11, Marshall, Stephen wrote:

------------------------------------------------
On Thu, 04 Sep 2003 00:39:55 -0700, "rkl" <[Email Removed]> wrote:

I figured I'd take a stab at fleshing this out into what he wants...
Any comments on things I could do better? I only added to what
Robert had coded...

Tony




#!/usr/bin/perl -w

use strict;
my $dirname = "/my/stuff/";
my $file;
my $newfile;
my $line;

opendir (DIR, $dirname) or die "Can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
next if $file =~ /^..?$/;
open (OLDFILE, "< $file");
$newfile = $file . "_nice";
open (NEWFILE, "> $newfile");
while ($line = <OLDFILE>) {
($line) = ($line =~ /^s*(.*)s*n$/);
print NEWFILE "$linen";
}
close OLDFILE;
close NEWFILE;
}


-----Original Message-----
From: [Email Removed] [mailto:[Email Removed]]
Sent: Thursday, September 04, 2003 8:32 AM
To: [Email Removed]; [Email Removed]
Subject: RE: Getting rid of white space...


are you speaking of this?

use strict;
while(my $line = <>) {
($line) = ($line =~ /^s*(.*)s*n$/);
print($line."_nice/n");
}

-----Original Message-----
From: LoneWolf [mailto:[Email Removed]]
Sent: Thursday, September 04, 2003 3:38 PM
To: [Email Removed]
Subject: Getting rid of white space...


I have about 12 files that I am pulling for a SCO box to a RedHat box, FTP.
THe files from the SCO box are poorly formatted with extraneous whitespace
(sometimes as much as 30 or more) before and after the text. I need to
parse all of the files I DL and put them into a new file with "_nice" added
at the end.

The files are all pipe-delimited, so I don't have a problem separating the
fields, I just am not sure how to make it remove all extra whitespace. It
needs to keep all Space in the fields " the description of the
file " should still be readable as "the description of the file"

Any help with code examples? I have been looking through a beginning book
and my old code and have come up nil.

Thanks,
Robert

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Thu, 04 Sep 2003 06:37:57 -0700, LoneWolf wrote:

Try it like this... I was a slacker and didn't have warnings
in place if it couldn't open the file... Should be able
to just change the "/my/stuff/" to your directory and have it
work, I tested it here, and it seems to go fine. (on an aix
box - maybe I have something in place that doesn't work on
windows or other platforms?)

Tony

#!/usr/bin/perl -w

use strict;
my $dirname = "/my/stuff/";
my $file;
my $newfile;
my $line;

opendir (DIR, $dirname) or die "Can't opendir $dirname: $!";

while (defined($file = readdir(DIR))) {
next if $file =~ /^..?$/;
open (OLDFILE, "< $file") or die "Can't open $file: $!";
$newfile = $file . "_nice";
open (NEWFILE, "> $newfile") or die "Can't open $newfile: $!";
while ($line = <OLDFILE>) {
($line) = ($line =~ /^s*(.*)s*n$/);
print NEWFILE "$linen";
}
close OLDFILE;
close NEWFILE;
}

-----Original Message-----
From: Marshall, Stephen [mailto:[Email Removed]]
Sent: Thursday, September 04, 2003 11:11 AM
To: Marshall, Stephen; Akens, Anthony; '[Email Removed]';
'[Email Removed]'; '[Email Removed]'
Subject: RE: Getting rid of white space...


Got it working this way fror the important line, but theres probably a slicker way of doing it.

$line =~ s/(s)+/ /g;

This is a very common mistake, so don't feel bad.

The "=" operator assigns the value on the right to the variable on the left.
The "==" operator checks two numeric values for comparison, returning true
if they match
The "eq" operator checks two string values for comparison, returning true if
they match

So you need to change your code to:

If(@ARGV[0] eq "-q"){
print "It workedn";
}else{
print "It did not workn";
}


-----Original Message-----
From: Thomas Browner [mailto:[Email Removed]]
Sent: Thursday, September 04, 2003 2:31 PM
To: [Email Removed]
Subject: help if than else statement


Can some one tell me way this does not work.



if (@ARGV[0] = "-q"){print "it workedn";}

else {print "it did not workn";}



if I use a -w instead of -q it still prints it worked.





Thomas Browner

Digidyne, Inc

Technical Engineer

(

Lonewolf wrote:

Antonio Jose wrote:

--On Thursday, September 04, 2003 9:48 AM +0100 Nigel Peck - MIS Web Design
<[Email Removed]> wrote:

Paul Archer wrote:

Well since you've asked for it how about doing this,

I want to make a cross-platform utility that when provided with the location
of a directory structure generates the following log,

1) Date of creation
2) Size on Disk
3) Build number of the component / executable.
4) Copyright info (if included in the resource file)


So what do you think ?

-----Original Message-----
From: Ged [mailto:[Email Removed]]
Sent: Friday, September 05, 2003 3:59 PM
To: [Email Removed]
Subject: perl questions / exercices


Hi all,

I am currently learning perl reading all the material I can get my hands on,
but have no use for it on a daily basis.

Because of this I am not getting the practice I need on a day-to-day basis
to gain more knowledge.

Having covered all the questions in books like 'Learning Perl' etc I need
more exercises, if not small projects to further my skills.

Its not easy to think up usefull projects, so my question is, does anybody
know of anything on the net to challenge me

Thanks,

Ged.

(p.s. I am still in the early stages so long complicated projects are still
a little out of my reach at the moment.)

-----------------------------------------
Email provided by http://www.ntlhome.com/



--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

Gary Stainburn said:

delete($hash{key})

-----Original Message-----
From: Paul Kraus [mailto:[Email Removed]]
Sent: Friday, September 05, 2003 3:29 PM
To: [Email Removed]
Subject: Undef hash


How can I kill a hash? I don't want to kill the entire hash just one
element.

$hash{key}=value <- I just want to remove this one not all of %hash.

Paul Kraus


--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]

Jenda Krynicky said:

From: Ramprasad A Padmanabhan <[Email Removed]>

Sorry, lack of sleep.. but isn't File::Basename usally installed in the
standard Perl install?

Denis

On Fri, 5 Sep 2003 [Email Removed] wrote:

Sounds interesting. I'll give it a whirl.

Hope you won't be waiting for me to code it though as it might take me a while to get it running smoothly, esspeically with it being cross platform.

On Friday, September 5, 2003, at 08:14 AM, Gary Stainburn wrote:

On Friday 05 Sep 2003 2:25 pm, Jenda Krynicky wrote: