[25262] in Perl-Users-Digest
Perl-Users Digest, Issue: 7507 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 11 06:05:41 2004
Date: Sat, 11 Dec 2004 03:05:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 11 Dec 2004 Volume: 10 Number: 7507
Today's topics:
Email::MIME::Creator usenet@gersic.com
Re: Email::MIME::Creator <mbudash@sonic.net>
Re: forwarding cgi->param() <mbudash@sonic.net>
Re: forwarding cgi->param() (David Efflandt)
Re: forwarding cgi->param() krakle@visto.com
Re: forwarding cgi->param() <1usa@llenroc.ude.invalid>
Re: grammar function [OT - English Grammar] <dformosa@zeta.org.au>
Re: Loop Logic Question <someone@example.com>
Re: Open All files one by one <1usa@llenroc.ude.invalid>
Re: Open All files one by one <kvrahul@gmail.com>
Re: Open All files one by one <bustanut2020@yahoo.com>
Re: Open All files one by one <bustanut2020@yahoo.com>
Re: Open All files one by one <1usa@llenroc.ude.invalid>
Re: Open All files one by one <tadmc@augustmail.com>
Re: Open All files one by one <tintin@invalid.invalid>
Re: Passing hashes to a function <cwilbur@mithril.chromatico.net>
Re: Passing hashes to a function <uri@stemsystems.com>
Re: Passing hashes to a function <cwilbur@mithril.chromatico.net>
Regaular Expression <gene_leung@kader.com.hk>
Re: Regaular Expression <someone@example.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Dec 2004 23:51:40 -0800
From: usenet@gersic.com
Subject: Email::MIME::Creator
Message-Id: <1102751500.107990.299730@f14g2000cwb.googlegroups.com>
Hi All,
I was recently working on a project where I needed to generate various
types of Multipart MIME emails. I found Email::MIME::Creator to be
really great, but the documentation is pretty sparse, so it's kind of
hard to figure out if you don't have a lot of experience with MIME
types, etc. So, I wrote a little tutorial which shows how to create an
ASCII/HTML multipart email, an ASCII email with an attachment, and an
ASCII/HTML multipart email with an attachment (nested multipart email).
Here it is...hope someone finds it helpful someday:
http://www.gersic.com//static.php?page=static041210-001725
Tom
------------------------------
Date: Sat, 11 Dec 2004 08:05:59 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Email::MIME::Creator
Message-Id: <mbudash-CE9A0E.00060611122004@typhoon.sonic.net>
In article <1102751500.107990.299730@f14g2000cwb.googlegroups.com>,
usenet@gersic.com wrote:
> Hi All,
>
> I was recently working on a project where I needed to generate various
> types of Multipart MIME emails. I found Email::MIME::Creator to be
> really great, but the documentation is pretty sparse, so it's kind of
> hard to figure out if you don't have a lot of experience with MIME
> types, etc. So, I wrote a little tutorial which shows how to create an
> ASCII/HTML multipart email, an ASCII email with an attachment, and an
> ASCII/HTML multipart email with an attachment (nested multipart email).
>
> Here it is...hope someone finds it helpful someday:
> http://www.gersic.com//static.php?page=static041210-001725
>
> Tom
>
unless i'm missing something here, MIME::Lite is much easier to use with
much better and simpler documentation...
--
Michael Budash
------------------------------
Date: Fri, 10 Dec 2004 23:32:43 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: forwarding cgi->param()
Message-Id: <mbudash-32DF58.15325010122004@typhoon.sonic.net>
In article <cpcvui$dr3$2@achot.icm.edu.pl>, Colombo <colo@megapolis.pl>
wrote:
> hi,
> how to forward parameters from $cgi->param() to another page when I
> don't know how many parameters are there and how they are called?
>
> Colombo
you normally don't forward or pass params to another page, but you do to
another script.
anyway, from your description of the problem, i'm going to guess that
you need to look into the CGI module's query_string() method.
--
Michael Budash
------------------------------
Date: Sat, 11 Dec 2004 00:29:08 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: forwarding cgi->param()
Message-Id: <slrncrkfqk.oqu.efflandt@typhoon.xnet.com>
On Fri, 10 Dec 2004 21:27:14 +0000, Colombo <colo@megapolis.pl> wrote:
> hi,
> how to forward parameters from $cgi->param() to another page when I
> don't know how many parameters are there and how they are called?
Not clear if you are generating another form and want to pass variables
through it, or attempting to redirect them to some other handler. But to
pass submitted variables through another form as hidden variables,
somewhere within the CGI generated form do something like:
foreach ($cgi->param) { print $cgi->hidden($_), "\n"; }
Of course you would need to make certain that and subsequent forms use
different field names so they do not get mixed up with previous fields.
And you could eliminate having to replicate '$cgi->' so often in your
script by using function method instead of object method.
------------------------------
Date: 10 Dec 2004 19:15:16 -0800
From: krakle@visto.com
Subject: Re: forwarding cgi->param()
Message-Id: <1102732484.227097.66970@f14g2000cwb.googlegroups.com>
David Efflandt wrote:
> On Fri, 10 Dec 2004 21:27:14 +0000, Colombo <colo@megapolis.pl>
wrote:
> > hi,
> > how to forward parameters from $cgi->param() to another page when I
> > don't know how many parameters are there and how they are called?
>
> Not clear if you are generating another form and want to pass
variables
> through it, or attempting to redirect them to some other handler.
But to
> pass submitted variables through another form as hidden variables,
> somewhere within the CGI generated form do something like:
>
> foreach ($cgi->param) { print $cgi->hidden($_), "\n"; }
Their is VARS..
my $FORM = $cgi->Vars;
now $FORM{'name'}
------------------------------
Date: 11 Dec 2004 03:28:03 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: forwarding cgi->param()
Message-Id: <Xns95BBE48DE7549asu1cornelledu@132.236.56.8>
krakle@visto.com wrote in news:1102732484.227097.66970
@f14g2000cwb.googlegroups.com:
> Their is VARS..
Whose is what?
> now $FORM{'name'}
Is that supposed to be Perl?
Sinan.
--
A. Sinan Unur
1usa@llenroc.ude.invalid
(remove '.invalid' and reverse each component for email address)
------------------------------
Date: 11 Dec 2004 16:30:52 +1100
From: ? the Platypus {aka David Formosa} <dformosa@zeta.org.au>
Subject: Re: grammar function [OT - English Grammar]
Message-Id: <m3y8g5flkj.fsf@dformosa.zeta.org.au>
"Paul Lalli" <mritty@gmail.com> writes:
> "Ken Sington" <ken_sington@nospam_abcdefg.com> wrote in message
> news:HJmdnb8C-OEc-CvcRVn-pw@speakeasy.net...
> >
> > chair remains chair if there are one or zero.
>
> You have "zero chair"? "zero desk"? That doesn't especially sound like
> correct (American) English to me.
I have three chairs.
I have two chairs.
I have I chair;
I have no chairs;
> Singular is used for one item.
> Plural is used for not-one items.
Looks like it.
--
Please excuse my spelling as I suffer from agraphia. See
http://dformosa.zeta.org.au/~dformosa/Spelling.html to find out more.
Free the Memes.
------------------------------
Date: Sat, 11 Dec 2004 10:41:06 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Loop Logic Question
Message-Id: <69Aud.51640$6f6.21451@edtnps89>
Chip wrote:
>
> I have a text file that I need to convert
> from a vertical list to a horizontal comma
> delimited file that will always have the
> same number (12) items in it.
>
> The first item in each line is a serial
> number that is always 17 characters followed
> by a model number, stock number, sale price,
> cost, color, then a list of options which
> can vary between 1 to 6.
>
> I can split the vertical file on the "\n"
> but will need a loop to add blank fields
> to the end of the line if the options
> do not total 6 so that the line always
> has total of 12 fields even if there are
> not a total of 6 options.
>
> $filename = "vertical.txt";
> open(FILE, "$filename") || die "Could not open $filename";
> @array = <FILE>;
> foreach $line (@array)
> {
> if ( $line =~ /[^\S{17}]/) #serial number
> {
> #code to make formatted file
> }
> }
>
> Example files;
>
> <vertical.txt>
> 2G1WF52E849457786
> 1WF19
> 9457786
> 24600.00
> 22988.78
> White/Lt Gray/cloth
> B34 FLOOR MATS
> FE9 FEDERAL EMISSION EQUIPMENT
> K34 ELECTRONIC SPEED CONTROL
> 2G1WF52EX49457241
> 1WF19
> 9457241
> 22725.00
> 21282.53
> White/Light Gray Clth
> B34 FLOOR MATS
> FE9 FEDERAL EMISSION EQUIPMENT
> K34 ELECTRONIC SPEED CONTROL
> LA1 3.4 V6 ENGINE
> MX0 4 SPEED AUTO W/OVERDRIVE
> 2G1WP551449281308
> 1WP19
> 9281308
> 32835.00
> 30542.19
> Black/Lt Gray Leather
> AW6 DRIVERS SIDE AIRBAG
> CF5 ELECTRIC SUNROOF
> FE9 FEDERAL EMISSION EQUIPMENT
> L67 SUPERCHARGED 3.8L SFI V6
> MX0 4 SPEED AUTO W/OVERDRIVE
> UP0 AM/FM CASS/CD PLAYER
> </vertical.txt>
>
> <formatted file>
> 2G1WF52E849457786,1WF19,9457786,24600.00,22988.78,White/Lt Gray/cloth,B34
> FLOOR MATS,FE9 FEDERAL EMISSION EQUIPMENT,K34 ELECTRONIC SPEED CONTROL,,,,
> 2G1WF52EX49457241,1WF19,9457241,22725.00,21282.53,White/Light Gray Clth,B34
> FLOOR MATS,FE9 FEDERAL EMISSION EQUIPMENT,K34 ELECTRONIC SPEED CONTROL,LA1
> 3.4 V6 ENGINE,MX0 4 SPEED AUTO W/OVERDRIVE,,
> 2G1WP551449281308,1WP19,9281308,32835.00,30542.19,Black/Lt Gray Leather,AW6
> DRIVERS SIDE AIRBAG,CF5 ELECTRIC SUNROOF,FE9 FEDERAL EMISSION EQUIPMENT,L67
> SUPERCHARGED 3.8L SFI V6,MX0 4 SPEED AUTO W/OVERDRIVE,UP0 AM/FM CASS/CD
> PLAYER,
> </formatted file>
This appears to do what you require:
#!/usr/bin/perl
use warnings;
use strict;
my $filename = 'vertical.txt';
open FILE, '<', $filename or die "Could not open $filename: $!";
my @data;
while ( <FILE> ) {
chomp;
if ( /^\w{17}$/ or eof FILE ) {
push @data, $_ if eof FILE;
if ( @data ) {
no warnings 'uninitialized';
print join( ',', @data[ 0 .. 12 ] ), "\n";
}
@data = $_;
}
else {
push @data, $_;
}
}
__END__
John
--
use Perl;
program
fulfillment
------------------------------
Date: 11 Dec 2004 00:34:59 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Open All files one by one
Message-Id: <Xns95BBC734C48B1asu1cornelledu@132.236.56.8>
"foobar" <kvrahul@gmail.com> wrote in
news:1102711379.701957.297310@z14g2000cwz.googlegroups.com:
Please provide some context about what you are responding to. It looks to
me like you are asking for a code review.
> #!/../..perl -w
As one of my friends would say, what is this crap?!
> use strict;
use warnings;
is preferable to -w.
> $my_txt_dir = ' / .. / .. /someplace';
Post code that actually compiles.
> my $files_ref = ReadDir ($my_txt_dir);
Not wrong per se but what is the point of writing a sub whose name closely
resembles the name of one Perl's functions, but behaves differently?
Not to mention that you are not gaining anything by doing this. Instead,
you run the risk of creating a bottleneck by potentially reading in a list
of thousands of files when all you need is one file name at a time.
> foreach my $file (@$files_ref){
> if ($file =~ /\.txt/){
Do you really want to match the file name if .txt appears anywhere in the
name? That is, is 'my.doc.txt.pdf' really an acceptable filename?
> my $file_recs_ref = ReadFile ("$my_txt_dir/$file");
If you really want to slurp, maybe you should use File::Slurp.
A better way might be this:
use strict;
use warnings;
use File::Slurp;
use File::Spec::Functions 'catfile';
use constant DIR => 'd:/home';
opendir my $DIR, DIR
or die 'Cannot open directory ', DIR, ": $!";
while(my $fn = readdir $DIR) {
next unless -f $fn && $fn =~ /\.txt$/i;
my $lines = read_file($fn, array_ref => 1);
process_file($lines);
}
closedir $DIR
or die 'Cannot close directory ', DIR, ": $!";
sub process_file {
# For lack of anything better to make up
# right now
print @{ $_[0] };
}
__END__
------------------------------
Date: 10 Dec 2004 18:02:13 -0800
From: "yapp" <kvrahul@gmail.com>
Subject: Re: Open All files one by one
Message-Id: <1102730533.751995.266290@c13g2000cwb.googlegroups.com>
My sincere apologies for the response. This is the first time I'm
actually posting on a discussion group. I should have read the rules.
I just realized all the flaws in my code and appreciate the critical
comments.
------------------------------
Date: Sat, 11 Dec 2004 02:07:21 GMT
From: "Billy" <bustanut2020@yahoo.com>
Subject: Re: Open All files one by one
Message-Id: <tDsud.173736$V41.53872@attbi_s52>
"Billy" <bustanut2020@yahoo.com> wrote in message
news:YDaud.738441$8_6.539088@attbi_s04...
> All,
> I am looking for a way to open ALL files in a directory one by one in
perl.
> I am able to open one file... read in the data and write it out to another
> file without any problems. But I have to tell the script the file I am
> opening. I would like the script to open all .txt files read out some data
> and append it to another file. The only part I am stuck on is the opening
of
> the files without providing the filenames.
> I searched around and got tired of going in circles.
> Say I have a directory that has...
> bob.txt
> ted.txt
> sam.txt
> sue.txt
> index.html
> Is there a simple way to open all the .txt files?
> If this needs more info please let me know.
> Billy
All how about:
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use strict;
my @files = <*.txt>;
while (<*.txt>) {
open (HANDLE, $_) || die ("Can't open $_: $!");
while (<HANDLE>) {
print; # or something else
}
}
close HANDLE;
Anything wrong with this approach?
Thank you,
Billy
------------------------------
Date: Sat, 11 Dec 2004 03:18:36 GMT
From: "Billy" <bustanut2020@yahoo.com>
Subject: Re: Open All files one by one
Message-Id: <gGtud.479954$wV.405762@attbi_s54>
> All how about:
>
> #!/usr/bin/perl
> use CGI::Carp qw(fatalsToBrowser);
> use strict;
> my @files = <*.txt>;
> while (<*.txt>) {
> open (HANDLE, $_) || die ("Can't open $_: $!");
> while (<HANDLE>) {
> print; # or something else
> }
> }
> close HANDLE;
>
> Anything wrong with this approach?
>
> Thank you,
>
> Billy
>
I found a problem right off... my @files = <*.txt>; only works if I have it
in the same file directory.
Billy
------------------------------
Date: 11 Dec 2004 03:26:58 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Open All files one by one
Message-Id: <Xns95BBE45F4D2A7asu1cornelledu@132.236.56.8>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
news:Xns95BBC734C48B1asu1cornelledu@132.236.56.8:
> use File::Spec::Functions 'catfile';
...
> next unless -f $fn && $fn =~ /\.txt$/i;
Spot the bug! In my defense, I did run the script before posting it, but I
only ran it in D:/Home. The proper check above should have been:
next unless -f catfile(DIR, $fn) && $fn =~ /\.txt$/i;
Sorry.
--
A. Sinan Unur
1usa@llenroc.ude.invalid
(remove '.invalid' and reverse each component for email address)
------------------------------
Date: Sat, 11 Dec 2004 00:14:44 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Open All files one by one
Message-Id: <slrncrl42k.efk.tadmc@magna.augustmail.com>
Billy <bustanut2020@yahoo.com> wrote:
> #!/usr/bin/perl
> use CGI::Carp qw(fatalsToBrowser);
> use strict;
> my @files = <*.txt>;
> while (<*.txt>) {
> open (HANDLE, $_) || die ("Can't open $_: $!");
> while (<HANDLE>) {
> print; # or something else
> }
> }
> close HANDLE;
>
> Anything wrong with this approach?
Yes, your indenting got all messed up.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 11 Dec 2004 21:55:46 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: Open All files one by one
Message-Id: <31vqtkF3f2on0U1@individual.net>
"Billy" <bustanut2020@yahoo.com> wrote in message
news:tDsud.173736$V41.53872@attbi_s52...
>
> All how about:
>
> #!/usr/bin/perl
> use CGI::Carp qw(fatalsToBrowser);
> use strict;
> my @files = <*.txt>;
> while (<*.txt>) {
> open (HANDLE, $_) || die ("Can't open $_: $!");
> while (<HANDLE>) {
> print; # or something else
> }
> }
> close HANDLE;
>
> Anything wrong with this approach?
You read all filenames into the @files array, but never use it.
Instead of a while loop, I think a foreach loop looks cleaner, eg:
foreach my $file (<*.txt>) {
open FILE, $file or die "Can not open $file $!\n";
..
}
------------------------------
Date: Sat, 11 Dec 2004 06:14:37 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Passing hashes to a function
Message-Id: <87oeh1ml01.fsf@mithril.chromatico.net>
>>>>> "f" == foobar <kvrahul@gmail.com> writes:
f> when one tries to print the keys of h1 - "a" and "b" are only
f> printed and not "ac" and "bc".
That's because "a" and "b" *are* the keys of h1.
f> what is the purpose of having 2 dim hash?
Keeping complicated data structures sane. Here's an example:
%info = ( cwilbur => { email => 'cwilbur@example.com',
name => 'Charlton Wilbur',
occupation => 'shiftless layabout',
home_state => 'Massachusetts' },
pendley => { email => 'pendley@example.com',
name => 'Sherm Pendley',
occupation => 'perl guru' },
uri => { email => 'uri@example.com',
name => 'Uri Guttman',
home_state => 'Massachusetts' } );
(Apologies, Mr. Pendley and Mr. Guttman: yours were the first two
names I thought of.)
This would become much more of an annoyance if we only had one-level
hashes to deal with. In particular, note that the set of data
available for each of us differs; this is one place where hashes
really shine.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Sat, 11 Dec 2004 07:21:34 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Passing hashes to a function
Message-Id: <x7pt1hz4ea.fsf@mail.sysarch.com>
>>>>> "CW" == Charlton Wilbur <cwilbur@mithril.chromatico.net> writes:
>>>>> "f" == foobar <kvrahul@gmail.com> writes:
f> when one tries to print the keys of h1 - "a" and "b" are only
f> printed and not "ac" and "bc".
CW> That's because "a" and "b" *are* the keys of h1.
f> what is the purpose of having 2 dim hash?
CW> Keeping complicated data structures sane. Here's an example:
CW> %info = ( cwilbur => { email => 'cwilbur@example.com',
CW> name => 'Charlton Wilbur',
CW> occupation => 'shiftless layabout',
CW> home_state => 'Massachusetts' },
CW> pendley => { email => 'pendley@example.com',
CW> name => 'Sherm Pendley',
CW> occupation => 'perl guru' },
CW> uri => { email => 'uri@example.com',
CW> name => 'Uri Guttman',
CW> home_state => 'Massachusetts' } );
CW> (Apologies, Mr. Pendley and Mr. Guttman: yours were the first two
CW> names I thought of.)
i am only upset because you gave a job to sherm and not to me. you will
be hearing from my lawyers, dewey, cheedem and howe, in the morning!
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 11 Dec 2004 10:59:37 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Passing hashes to a function
Message-Id: <87acslm79y.fsf@mithril.chromatico.net>
>>>>> "uri" == Uri Guttman <uri@stemsystems.com> writes:
CW> (Apologies, Mr. Pendley and Mr. Guttman: yours were the first
CW> two names I thought of.)
uri> i am only upset because you gave a job to sherm and not to
uri> me. you will be hearing from my lawyers, dewey, cheedem and
uri> howe, in the morning!
Well, the alternative was to make you another shiftless layabout....
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: 11 Dec 2004 01:35:26 -0800
From: "gene_leung@kader.com.hk" <gene_leung@kader.com.hk>
Subject: Regaular Expression
Message-Id: <1102757726.895386.12050@f14g2000cwb.googlegroups.com>
Hi All,
What is the easy way to convert the below line using regular
expression:
123 | 456 || abc ||| cdef |||| end ------> 123 | 456 |\N| abc |\N|\N|
cdef |\N|\N|\N| end
Please send me email directly!! Thanks!!
Best Regards
Gene Leung
------------------------------
Date: Sat, 11 Dec 2004 10:52:04 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Regaular Expression
Message-Id: <ojAud.51641$6f6.8665@edtnps89>
gene_leung@kader.com.hk wrote:
>
> What is the easy way to convert the below line using regular
> expression:
>
> 123 | 456 || abc ||| cdef |||| end ------> 123 | 456 |\N| abc |\N|\N|
> cdef |\N|\N|\N| end
s'\|(?=\|)'|\N'g;
John
--
use Perl;
program
fulfillment
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 7507
***************************************
