[23618] in Perl-Users-Digest
Perl-Users Digest, Issue: 5825 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 18 21:05:49 2003
Date: Tue, 18 Nov 2003 18:05:08 -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 Tue, 18 Nov 2003 Volume: 10 Number: 5825
Today's topics:
Additional regex question <bryan@akanta.com>
Re: Additional regex question (Hae Jin)
Re: Additional regex question (Jay Tilton)
Re: Arrays / Hashes / LoLs -- Building a data store <uri@stemsystems.com>
Re: Creating UNICODE filenames with PERL 5.8 <abigail@abigail.nl>
Re: Creating UNICODE filenames with PERL 5.8 (Malcolm Dew-Jones)
Error trapping $RS_ADO->Open($SQL_ADO, $Conn_ADO, 1, 1) <nospam@nospam.com>
Re: Find::File and taint mode <usenet@morrow.me.uk>
Re: How can I append todays date to the file name? <REMOVEsdnCAPS@comcast.net>
Re: Match and cut regex? <pinyaj@rpi.edu>
Re: PERL array of arrays <invalid@invalid.com.invalid>
Re: Perl sendmail going to spam folders? (David Efflandt)
Re: regex to convert 1000000 -> 1,000,000 ? <abigail@abigail.nl>
Re: regex to convert 1000000 -> 1,000,000 ? <abigail@abigail.nl>
Re: regex to convert 1000000 -> 1,000,000 ? <bmb@ginger.libs.uga.edu>
Re: regex to convert 1000000 -> 1,000,000 ? <tcurrey@no.no.i.said.no>
Re: regex to convert 1000000 -> 1,000,000 ? <wsanford@wallysanford.com>
Re: regex to convert 1000000 -> 1,000,000 ? (Sam Holden)
Re: regex to convert 1000000 -> 1,000,000 ? <REMOVEsdnCAPS@comcast.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 18 Nov 2003 23:54:02 GMT
From: Bryan <bryan@akanta.com>
Subject: Additional regex question
Message-Id: <uiyub.6711$FL7.55713976@newssvr21.news.prodigy.com>
Looked in the faq, helpful but still didnt figure out a clean way to do
something more advanced (for me):
I have a file with this kind of stuff in it:
+some identifying string 1
aaabbbbcccccdddd
eeeffffaaabcbcbaad
jjkalddd
+some identifying string 2
ggaadryyyyssaaad
ddddeeeakkkkalllla
asdfffff
I need to process the file and dump the results into a new file. The
file should be processed in the following manner:
1. Any line that starts with '+' should be untouched and dumped to the
new file
2. Any lines that are not empty should be joined with whatever lines are
not empty following them, up to the empty line.
3. The joined line needs to be searched for a pattern and then truncated
after the pattern.
So if my search string was (case insensitive) ddddeee, the output file
would look like this:
+some identifying string 1
aaabbbbcccccddddeee
+some identifying string 2
ggaadryyyyssaaadddddeee
Using index and substr, I can match and get the truncated version of the
joined string... but I am not sure how to loop over my file, and in some
cases use just one line and in others join lines.
I tried fiddling with $/ = "", or $/ = "+", but couldn't get what I wanted.
Suggestions appreciated,
B
------------------------------
Date: Tue, 18 Nov 2003 16:25:34 -0800
From: "Austin P. So (Hae Jin)" <haejin@ubc.ca>
Subject: Re: Additional regex question
Message-Id: <bped9u$el0$1@nntp.itservices.ubc.ca>
Bryan wrote:
> I have a file with this kind of stuff in it:
>
> +some identifying string 1
> aaabbbbcccccdddd
> eeeffffaaabcbcbaad
> jjkalddd
>
> +some identifying string 2
> ggaadryyyyssaaad
> ddddeeeakkkkalllla
> asdfffff
Geez...are you trying to mask your homework problem?
This is a common thing for biological databases...best thing to do is to
convert things from FASTA format into a HASH (or array I suppose) and
then play with that information as needed...
i.e. convert:
>identifier1
sequence
sequence
sequence
>identifier2
sequence
sequence
sequence
to:
$hash{$identifier1}=$sequence.$sequence.$sequence...
$hash{$identifier2}=$sequence.$sequence.$sequence...
...
Are you sure this isn't a homework problem or something? Seems like you
are asking everyone to manipulate FASTA sequences for you...
Oh well...in this case, use a flag to indicate a new sequence and read
the lines into a hash as above...
Good luck...
Austin
------------------------------
Date: Wed, 19 Nov 2003 01:57:01 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: Additional regex question
Message-Id: <3fbacbff.103171035@news.erols.com>
Bryan <bryan@akanta.com> wrote:
: I have a file with this kind of stuff in it:
:
: +some identifying string 1
: aaabbbbcccccdddd
: eeeffffaaabcbcbaad
: jjkalddd
:
: +some identifying string 2
: ggaadryyyyssaaad
: ddddeeeakkkkalllla
: asdfffff
:
: I need to process the file and dump the results into a new file. The
: file should be processed in the following manner:
: 1. Any line that starts with '+' should be untouched and dumped to the
: new file
: 2. Any lines that are not empty should be joined with whatever lines are
: not empty following them, up to the empty line.
: 3. The joined line needs to be searched for a pattern and then truncated
: after the pattern.
:
: So if my search string was (case insensitive) ddddeee, the output file
: would look like this:
: +some identifying string 1
: aaabbbbcccccddddeee
:
: +some identifying string 2
: ggaadryyyyssaaadddddeee
:
: Using index and substr, I can match and get the truncated version of the
: joined string... but I am not sure how to loop over my file, and in some
: cases use just one line and in others join lines.
#!perl
use warnings;
use strict;
{
local $/ = '';
while(<DATA>) {
chomp;
(my $lines =
join '',
grep !( /^\+/ && print "$_\n"),
split /\n/
) =~ s/(ddddeee).+/$1/;
print "$lines\n\n";
}
}
__DATA__
+some identifying string 1
aaabbbbcccccdddd
eeeffffaaabcbcbaad
jjkalddd
+some identifying string 2
ggaadryyyyssaaad
ddddeeeakkkkalllla
asdfffff
------------------------------
Date: Tue, 18 Nov 2003 23:14:26 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Arrays / Hashes / LoLs -- Building a data store
Message-Id: <x7ptfpfewe.fsf@mail.sysarch.com>
>>>>> "MWS" == Master Web Surfer <raisin@delete-this-trash.mts.net> writes:
use strict ;
MWS> @array = ();
MWS> push @array, [ "Home" , "index.htm" , 4 , "Home Page"];
MWS> push @array, [ "News" , "news.htm" , 1 , "Welcome to the news"];
MWS> push @array, [ "Contact" , "id.htm" , 3 , "Home Page"];
why use push three times when one push could take all three array refs
as data? or why even push if you are just assigning them to @array?
my @array = (
[ "Home" , "index.htm" , 4 , "Home Page"],
[ "News" , "news.htm" , 1 , "Welcome to the news"],
[ "Contact" , "id.htm" , 3 , "Home Page"],
) ;
MWS> for ( $i = 0 ; $i <= $#array ; ++$i ) {
gack! c style loops are so not perlish.
foreach my $aref ( @array )
MWS> printf "%-14s %-13s %-11d %s\n",$array[$i][0],$array[$i][1],$array
MWS> [$i][2],$array[$i][3];
MWS> }
now that we have an array ref for a given row, we can just pass all the
args in one list. no need for the [0], etc. this is the perl way to scan
lists of lists.
printf "%-14s %-13s %-11d %s\n", @{$aref} ;
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: 18 Nov 2003 23:16:55 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Creating UNICODE filenames with PERL 5.8
Message-Id: <slrnbrla37.bnm.abigail@alexandra.abigail.nl>
Allan Yates (allan@yates.ca) wrote on MMMDCCXXXI September MCMXCIII in
<URL:news:d6f51524.0311180630.27996609@posting.google.com>:
`'
`' P.S. Please don't even think of chastising me for top posting versus
`' bottom posting. Different people have different preferences.
Oh, I won't. I don't chastise people for top posting. I just killfile
them, without an expire date.
*PLONK*
Abigail
--
perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print
${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]'
------------------------------
Date: 18 Nov 2003 16:40:22 -0800
From: yf110@vtn1.victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Creating UNICODE filenames with PERL 5.8
Message-Id: <3fbabbf6@news.victoria.tc.ca>
Ben Morrow (usenet@morrow.me.uk) wrote:
: allan@yates.ca (Allan Yates) wrote:
: > I have been having distinct trouble creating file names in PERL
: Perl or perl, not PERL.
: > containing UNICODE
: I'm not so sure about UNICODE...
: > For a simple test, I picked a UNICODE character that could be
: > displayed by Windows Explorer. I can select the character(U+0636) from
: > 'charmap' and cut/paste into a filename on Windows Explorer and the
: > character displays the same as it does in 'charmap'. This proves that
: > I have the font available.
: >
: > When I attempt to create the same filename with PERL, I end up with a
: > filename two characters long: ض
: OK, your problem here is that Win2k is being stupid about Unicode: any
: sensible OS that understood UTF8 would be fine :).
Hum, NT has been handling unicode for at least ten years (3.5, 1993) by
the simple expedient of using 16 bit characters. It is hardware that is
stupid, by continuing to use ancient tiny 8 bit elementary units.
Imagine if all that hardware still used 16 or 24 bit memory addresses.
Imagine if all our communication and hardware backbones still actually
transmitted data in single digit bit sizes.
Character size was always a compromise between functionality and memory.
Character size continually increased from the first character manipulating
electronic equipment of the (gee, way way back 1930's or so, believe it or
not) until the 1980's, when it suddenly solidified into a standard
elementary unit that was still a compromise in terms of size, but is now
clearly too small.
Character size remains frozen due to one of murphy's laws regarding the
success of hardware first build using compromises that were appropriate
twenty years ago.
------------------------------
Date: Tue, 18 Nov 2003 16:31:53 -0800
From: "Geek" <nospam@nospam.com>
Subject: Error trapping $RS_ADO->Open($SQL_ADO, $Conn_ADO, 1, 1)
Message-Id: <3fba4982$1@cpns1.saic.com>
Is there any way to trap for errors in the "->Open" statements below?
Thanks.
$Conn_ADO = Win32::OLE->new("ADODB.Connection");
$RS_ADO = Win32::OLE->new("ADODB.Recordset");
$DSN_ADO = "Provider=SQLOLEDB.1;Persist Security
Info=False;Database=DB1;Data Source=duh;UID=whatever;PWD=noway;Connect
Timeout=30";
$Conn_ADO->Open($DSN_ADO); #<-- *** This one ***
$SQL_ADO = <<EOF;
SELECT *
FROM TaskOrder
ORDER BY TaskID
EOF
$RS_ADO->Open($SQL_ADO, $Conn_ADO, 1, 1) #<-- *** And this one ***
------------------------------
Date: Tue, 18 Nov 2003 23:18:45 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Find::File and taint mode
Message-Id: <bpe9cl$if7$1@wisteria.csv.warwick.ac.uk>
"Dave Saville" <dave.nospam@ntlworld.com> wrote:
> On Tue, 18 Nov 2003 20:32:04 +0000 (UTC), Ben Morrow wrote:
> >Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> >> Dave Saville wrote:
> >> > I have a cgi script that uses File::Find.
> >> >
> >> > find(\&wanted, 'D:/Apps/SouthSide/PMMail');
> >> >
> >> > I am getting:
> >> >
> >> > Insecure dependency in chdir while running with -T switch at
>
> What I don't understand is why perl thinks it is tainted - all I am
> passing is a quoted string.
It's not that that's tainted: that string's fine. It's the next set of
strings: the list of directories in PMMail to recurse into. Since
those names have come from readdir, which brings data in from outside
the program, they're tainted. If you are *quite* sure that noone
untrusted can affect the names of those directories, then it is safe
to use the 'untaint' option.
Ben
--
It will be seen that the Erwhonians are a meek and long-suffering people,
easily led by the nose, and quick to offer up common sense at the shrine of
logic, when a philosopher convinces them that their institutions are not based
on the strictest morality. [Samuel Butler, paraphrased] ben@morrow.me.uk
------------------------------
Date: Tue, 18 Nov 2003 17:43:36 -0600
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: How can I append todays date to the file name?
Message-Id: <Xns9437BEAF22D6Esdn.comcast@216.196.97.136>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
LinuxTeam@yahoo.com (Dariush) wrote in
news:d83f36a4.0311180715.5f89eb1f@posting.google.com:
> Hello every one.
Hi.
> I would like to append todays date to the file name
>
> I have many files that arrive daily
>
> filename.pdf and so on
>
> How can I rename the files to
>
> filename_DDMMYY.pdf
>
> so the output would be
>
> filename_18112003.pdf
Download and install the Time::Format module, available on CPAN at
http://search.cpan.org/~roode/Time-Format-0.13/ . Then:
use Time::Format;
$filename = "whatever.pdf";
$new_name = $filename;
$new_name =~ s/\.(pdf|gif|jpg)$/_$time{ddmmyyyy}.$1/;
rename $filename, $new_name or die "Can't rename to $new_name: $!";
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP7qu52PeouIeTNHoEQKD5QCg4mI7KL4s65t8xbYJqnY5gZc4hLAAoMpz
GhRwrGJfF7sH/olFK0a2Brwa
=9MEB
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 18 Nov 2003 19:56:04 -0500
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
To: Bryan <bryan@akanta.com>
Subject: Re: Match and cut regex?
Message-Id: <Pine.SGI.3.96.1031118195052.205890A-100000@vcmr-64.server.rpi.edu>
[posted & mailed]
On Tue, 18 Nov 2003, Bryan wrote:
>If I have a 'cut' phrase:
>my $cut = "ABBCCCD";
>
>and a 'sentence':
>my $sentence = "ALSSDJOOASABBCCCDUUSIIASDLLLPP";
>
>What regex do I use to match the ABBCCCD and then chop off everything
>after it?
You probably don't need to use a regex:
substr($sentence, index($sentence, $cut) + length($cut)) = "";
But if you DO want to use a regex, then I'd suggest one of:
$sentence =~ s/($cut).*/$1/s;
$sentence =~ /$cut/g and substr($sentence, pos $sentence) = "";
$sentence =~ $cut and substr($sentence, $+[0]) = "";
--
Jeff Pinyan RPI Acacia Brother #734 2003 Rush Chairman
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: Wed, 19 Nov 2003 10:18:58 +1000
From: Schlick <invalid@invalid.com.invalid>
Subject: Re: PERL array of arrays
Message-Id: <bpecti$r1u$1@bunyip.cc.uq.edu.au>
Anno Siegel wrote:
<snip>
>># Sub for making list 'A'
>>sub make_random_list {
>> # Push random numbers onto an array reference
>> my $ret = [];
>> # I hate $_ - I don't use $i, but there
>> # are no possible side-effects
>
>
> Why introduce the name when you don't use it?
That's just my own personal thing. I hate $_ with a passion (although I
have to use it with map/grep etc). I've seen a few too many $_ traps so
I steer clear of the whole country.
> That's unnecessarily complicated. Perl has functions (like map()),
> that manipulate lists as a whole:
>
> sub make_random_list { [ map int rand 101, 1 .. 10] }
Definitely - but although it's functionally more complicated, it's
easier for someone who's learning how to do these things to read.
Normally I wouldn't even have the two subs for making the list-of-lists :)
> sub print_random_lol {
> local $, = ', ';
> my $i = 0;
> print "List @{[ $i++]}: [@$_]\n" for @{ make_random_lol()};
> }
Now you're just asking for a slew of questions about what $, is :)
Your solution is much more concise and clean, but I didn't want to
assume too much knowledge about some of the more complex perl trickery.
The good thing is that now the original poster has simplistic-v-advanced
code to compare and learn from.
------------------------------
Date: Wed, 19 Nov 2003 01:19:36 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Perl sendmail going to spam folders?
Message-Id: <slrnbrlh97.can.efflandt@typhoon.xnet.com>
On 18 Nov 2003 10:21:03 -0800, Duke of Hazard <faraz_hussain@yahoo.com> wrote:
> I am using sendmail in a perl script to send a message to the email
> address provided in a web form. The problem is that this message
> always end up in the person's spam/bulk folder. I don't know what it
> is about the sendmail that makes yahoo think it is spam. Below is my
> code pasted below:
Undoubtedly nothing Perl specific.
For one thing, from RFC 2822:
A message consists of header fields (collectively called "the header
of the message") followed, optionally, by a body. The header is a
sequence of lines of characters with special syntax as defined in
this standard. The body is simply a sequence of characters that
follows the header and is separated from the header by an empty line
(i.e., a line with nothing preceding the CRLF).
You have no blank line (or double newline) between your headers and body.
It also may depend upon the IP and DNS of your server, how it identifies
itself, whether it follows the RFCs, and your body content (which ends up
as funky headers due to missing blank line).
> ##################################
>
> $mail_prog = '/usr/sbin/sendmail -t' ;
>
> if ($email) {
>
> open (MAIL, "|$mail_prog");
> print MAIL "From: $r0\n";
> print MAIL "To: $r0,$email\n";
> print MAIL "Subject: Form results\n";
>
> print MAIL "blah blah blah";
>
> close (MAIL);
>
> } # end of if statement
--
David Efflandt - All spam ignored http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: 18 Nov 2003 23:21:09 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <slrnbrlab4.bnm.abigail@alexandra.abigail.nl>
Wally Sanford (wsanford@wallysanford.com) wrote on MMMDCCXXXI September
MCMXCIII in <URL:news:bpbsh4$1mrtqq$1@ID-196529.news.uni-berlin.de>:
;; Abigail wrote:
;;
;; > No, if they are Unix savy, they try "man perl", and guess what? On the
;; > second page it mentions the FAQ!
;;
;; $ man perl | grep -i faq
;; perlfaq Perl frequently asked questions
;; perlfaq1 General Questions About Perl
;; perlfaq2 Obtaining and Learning about Perl
;; perlfaq3 Programming Tools
;; perlfaq4 Data Manipulation
;; perlfaq5 Files and Formats
;; perlfaq6 Regexes
;; perlfaq7 Perl Language Issues
;; perlfaq8 System Interaction
;; perlfaq9 Networking
;;
;; It *mentions* perlfaq but says NOTHING of how to *access* it. Thats whe
;; whole point ehre.
That's explained on the *first* page:
For ease of access, the Perl manual has been split up into
several sections.
after which the list of manual pages, which includes the FAQ, follows.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: 18 Nov 2003 23:25:54 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <slrnbrlak2.bnm.abigail@alexandra.abigail.nl>
Trent Curry (tcurrey@no.no.i.said.no) wrote on MMMDCCXXXI September
MCMXCIII in <URL:news:bpbv83$s9i$1@news.astound.net>:
][
][ No need to be so rude. They never show up on my server, and I'm
][ obviously not the only one. They are shown in google groups though. As I
][ said already, it could be a problem with the outgoing feed from the
][ server tad uses to post those FAQ posts.
Clearly, if they show up in Google, Tad *doesn't* have a problem getting
the guidelines out. If the problem was at his server, it wouldn't reach
Google either.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Tue, 18 Nov 2003 19:12:09 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <Pine.A41.4.58.0311181910500.14186@ginger.libs.uga.edu>
On Sat, 15 Nov 2003, bad_knee wrote:
> bl8n8r@yahoo.com (bad_knee) wrote in message news:<e817ca4d.0311141105.1cc58788@posting.google.com>...
> > Hello,
> > I was wondering if anyone had a quick one for "commatizing" a
> > number in perl?
> >
> > Thanks
>
> Sheesh.. thought this would be an easy one for you guys.
What makes you think you're not one of the guys? ;-)
Regards,
Brad
------------------------------
Date: Tue, 18 Nov 2003 16:49:56 -0800
From: "Trent Curry" <tcurrey@no.no.i.said.no>
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <bpeesh$f5e$1@news.astound.net>
Abigail wrote:
> Trent Curry (tcurrey@no.no.i.said.no) wrote on MMMDCCXXXI September
> MCMXCIII in <URL:news:bpbv83$s9i$1@news.astound.net>:
>>
>> No need to be so rude. They never show up on my server, and I'm
>> obviously not the only one. They are shown in google groups
>> though. As I said already, it could be a problem with the
>> outgoing feed from the ][ server tad uses to post those FAQ posts.
>
> Clearly, if they show up in Google, Tad *doesn't* have a problem
> getting the guidelines out. If the problem was at his server, it
> wouldn't reach Google either.
It can still be a problem with his server. It is possible is server is
not propagating correctly. Some servers get it, some don't, obviously.
As already pointed out, I am not the only one not seeing his posts. (And
please stop using non standard quoting, it's not nice to make people do
extra work to fix it.)
--
Trent Curry
perl -e
'($s=qq/e29716770256864702379602c6275605/)=~s!([0-9a-f]{2})!pack("h2",$1
)!eg;print(reverse("$s")."\n");'
------------------------------
Date: Tue, 18 Nov 2003 16:57:32 -0800
From: "Wally Sanford" <wsanford@wallysanford.com>
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <bpef5t$1n8ng1$1@ID-196529.news.uni-berlin.de>
Abigail wrote:
> Wally Sanford (wsanford@wallysanford.com) wrote on MMMDCCXXXI
> September MCMXCIII in
> <URL:news:bpbsh4$1mrtqq$1@ID-196529.news.uni-berlin.de>:
>> Abigail wrote:
>>> No, if they are Unix savy, they try "man perl", and guess what?
>>> second page it mentions the FAQ!
>
>
> That's explained on the *first* page:
>
> For ease of access, the Perl manual has been split up into
> several sections.
>
> after which the list of manual pages, which includes the FAQ, follows.
Assumign the knew person knows of man, yes this is true.
---------- Abigail, about your quoting... ----------
Please don't preach about FAQs and guidelines when you can't even follow
a basic one after being asked thosands of times. Your quoting requires
the need to be fixed to make a post followable by those who actually use
standard quoting. It is a disruption, taking attention to your quoting
instead of the post. Please fix your quoting to use the standard "> ".
Don't be fancy with your quoting please.
------------------------------
Date: 19 Nov 2003 01:08:34 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <slrnbrlgki.dh4.sholden@flexal.cs.usyd.edu.au>
On Tue, 18 Nov 2003 16:57:32 -0800,
Wally Sanford <wsanford@wallysanford.com> wrote:
> Abigail wrote:
>> Wally Sanford (wsanford@wallysanford.com) wrote on MMMDCCXXXI
>> September MCMXCIII in
>> <URL:news:bpbsh4$1mrtqq$1@ID-196529.news.uni-berlin.de>:
>>> Abigail wrote:
>>>> No, if they are Unix savy, they try "man perl", and guess what?
>>>> second page it mentions the FAQ!
>
>>
>>
>> That's explained on the *first* page:
>>
>> For ease of access, the Perl manual has been split up into
>> several sections.
>>
>> after which the list of manual pages, which includes the FAQ, follows.
>
> Assumign the knew person knows of man, yes this is true.
How do you propose perl make the documentation available in such a way
that people who don't know how to read the documentation in the standard way
can still find it?
Mental telepathy or something?
--
Sam Holden
------------------------------
Date: Tue, 18 Nov 2003 19:33:09 -0600
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: regex to convert 1000000 -> 1,000,000 ?
Message-Id: <Xns9437D1415C730sdn.comcast@216.196.97.136>
sholden@flexal.cs.usyd.edu.au (Sam Holden) wrote in
news:slrnbrlgki.dh4.sholden@flexal.cs.usyd.edu.au:
> On Tue, 18 Nov 2003 16:57:32 -0800,
> Wally Sanford <wsanford@wallysanford.com> wrote:
>> Assumign the knew person knows of man, yes this is true.
>
> How do you propose perl make the documentation available in such a way
> that people who don't know how to read the documentation in the
> standard way can still find it?
>
> Mental telepathy or something?
Usenet! ;-)
--
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
------------------------------
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.
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 5825
***************************************
