[19085] in Perl-Users-Digest
Perl-Users Digest, Issue: 1280 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 11 03:51:57 2001
Date: Wed, 11 Jul 2001 00:51:42 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <994837902-v10-i1280@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 11 Jul 2001 Volume: 10 Number: 1280
Today's topics:
Signal SEGV - What is it? <stumo@bigfoot.com>
Re: Signal SEGV - What is it? <stumo@bigfoot.com>
Re: Signal SEGV - What is it? <bowman@montana.com>
Re: Signal SEGV - What is it? <stumo@bigfoot.com>
Re: simple reference question <goldbb2@earthlink.net>
Some perl questions <kejoseph@hotmail.com>
Re: Some perl questions <krahnj@acm.org>
Re: Some perl questions <pen411@home.com>
Re: Some perl questions <gnarinn@hotmail.com>
Re: Some perl questions (Kevin Joseph)
Re: Some perl questions <laszlo.gerencser@portologic.com>
Re: Some perl questions <gnarinn@hotmail.com>
Re: Some perl questions (Martien Verbruggen)
Re: Sorting versions of a file, Help needed <goldbb2@earthlink.net>
Re: sortlen -- filter to sort text by line length <goldbb2@earthlink.net>
Re: Storing Multiple RegEx Matches (Logan Shaw)
Re: Storing Multiple RegEx Matches <goldbb2@earthlink.net>
Re: Text based menuing system in Perl with submenus??? (Hai Maharaj)
Re: Text based menuing system in Perl with submenus??? (Rob Seegel)
Thank You <wessner@hps.fzk.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 10 Jul 2001 07:57:13 +0100
From: "Stuart Moore" <stumo@bigfoot.com>
Subject: Signal SEGV - What is it?
Message-Id: <9Mx27.18456$B56.3422295@news2-win.server.ntlworld.com>
I've got a perl script that crashes perl and -d tells me there was a Signal
SEGV. What is this and what might cause it? www.perldoc.com told me it was some
kind of signal (!) but couldn't give any more info. Is it a Unix based thing?
I'm using Activestate Perl (Windows).
Many thanks
Stuart
------------------------------
Date: Tue, 10 Jul 2001 08:55:20 +0100
From: "Stuart Moore" <stumo@bigfoot.com>
Subject: Re: Signal SEGV - What is it?
Message-Id: <Ywy27.13291$WS4.2048708@news6-win.server.ntlworld.com>
Stuart Moore <stumo@bigfoot.com> wrote in message
news:9Mx27.18456$B56.3422295@news2-win.server.ntlworld.com...
> I've got a perl script that crashes perl and -d tells me there was a Signal
> SEGV. What is this and what might cause it? www.perldoc.com told me it was
some
> kind of signal (!) but couldn't give any more info. Is it a Unix based thing?
> I'm using Activestate Perl (Windows).
>
Don't worry - managed to get rid of it (although I still don't understand why it
happened, or how the minor change I did made a difference...)
------------------------------
Date: Tue, 10 Jul 2001 07:02:55 -0600
From: "bowman" <bowman@montana.com>
Subject: Re: Signal SEGV - What is it?
Message-Id: <m%C27.382$6W4.1093@newsfeed.slurp.net>
"Stuart Moore" <stumo@bigfoot.com> wrote in message
news:Ywy27.13291$WS4.2048708@news6-win.server.ntlworld.com...
>
> Don't worry - managed to get rid of it (although I still don't understand
why it
> happened, or how the minor change I did made a difference...)
I am not sure how you get there in Perl, but SIGSEGV is an attempt to write
to memory you don't own. For instance, in Linux and Windows an attempt to
access 0x0000 will segfault. Usually happens in C where a pointer has been
set to 0x0000 and is used. Most of the string manipulation functions will
also fail if asked to process a NULL pointer to a string, rather than a
pointer to a zero length string (a byte containing '\0')
another popular way to dump core with this signal is to corrupt malloc's
internal data structs.
------------------------------
Date: Wed, 11 Jul 2001 00:31:23 +0100
From: "Stuart Moore" <stumo@bigfoot.com>
Subject: Re: Signal SEGV - What is it?
Message-Id: <reM27.15700$WS4.2496418@news6-win.server.ntlworld.com>
bowman <bowman@montana.com> wrote in message
news:m%C27.382$6W4.1093@newsfeed.slurp.net...
>
> "Stuart Moore" <stumo@bigfoot.com> wrote in message
> news:Ywy27.13291$WS4.2048708@news6-win.server.ntlworld.com...
> >
> > Don't worry - managed to get rid of it (although I still don't understand
> why it
> > happened, or how the minor change I did made a difference...)
>
> I am not sure how you get there in Perl, but SIGSEGV is an attempt to write
> to memory you don't own. For instance, in Linux and Windows an attempt to
> access 0x0000 will segfault. Usually happens in C where a pointer has been
> set to 0x0000 and is used. Most of the string manipulation functions will
> also fail if asked to process a NULL pointer to a string, rather than a
> pointer to a zero length string (a byte containing '\0')
>
> another popular way to dump core with this signal is to corrupt malloc's
> internal data structs.
Just for the record:
The error was solved when commenting out a particular line of a hash definition
(as in %hash = (a=>b, ...)
The value of this key was from a variable, I changed the lines where this
variable value was obtained, so that exactly the same value was obtained in a
slightly different manner (it had to de reference the output of a function
pointing to an array and take the first subscript) and it worked. There's more
than one way to do it, but one of them causes a signal fault ;-)
Note the error wasn't actually until the program was about to end, it wasn't
actually at the point the dereferencing occurred, and I think the right value
was obtained (although I can't be certain).
Weird
------------------------------
Date: Tue, 10 Jul 2001 23:11:27 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: simple reference question
Message-Id: <3B4BC3DF.E81E1718@earthlink.net>
Philip Newton wrote:
>
> On 20 Jun 2001 06:51:58 -0700, sierra@ecclectic.net (sierra) wrote:
>
> > use $input;
>
> 'use' works at compile time, while $input isn't filled until runtime.
>
> Also, use requires a bareword. You might be able to use something like
>
> require "$input.pm";
> import $input;
>
> to simulate the 'use', but this will not make available constants or
> change prototypes.
Actually, it will change prototypes and provide constants, but only in
code loaded after that point in time. However, except for eval string,
or other things loaded by require, very little is likely to be loaded
after that.
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: Mon, 09 Jul 2001 23:03:35 GMT
From: "Kevin Joseph" <kejoseph@hotmail.com>
Subject: Some perl questions
Message-Id: <bLq27.392823$K5.41256436@news1.rdc1.nj.home.com>
I have the following Perl related questions. Any assistance would be highly
appreciated.
1. What does the following do ? Does it return the error level ?
$rc = 0xffff & system ( "some command" ) ;
2. What does the following do ? Is it for initializing ?
$abc = shift ;
3. I have written a couple of cgi scripts which run some system commands.
Say
print "Content type : text/html" ;
..
...
$abc = `ptree 128` ;
for $i ( 0 .. $#abc ) {
print "$abc[$i]<BR> " ;
}
....
...
The problem with this script is that it does not print the spaces which
appear ( if at all ) before $abc[$i]
So instead of outputing
10 some proces
100 some sub process
100 some child process
it prints
10 some proces
100 some sub process
100 some child process
How do I fix this ?
Thanks a bunch !
Kevin.
------------------------------
Date: Tue, 10 Jul 2001 00:04:07 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Some perl questions
Message-Id: <3B4A46BF.A5125FF8@acm.org>
Kevin Joseph wrote:
>
> I have the following Perl related questions. Any assistance would be highly
> appreciated.
>
> 1. What does the following do ? Does it return the error level ?
system() returns the return from "some command". Read the documentation.
perldoc -f system
> $rc = 0xffff & system ( "some command" ) ;
>
> 2. What does the following do ? Is it for initializing ?
shift() shifts a scalar from an array. Read the documentation.
perldoc -f shift
> $abc = shift ;
>
> 3. I have written a couple of cgi scripts which run some system commands.
> Say
>
> print "Content type : text/html" ;
> ..
> ...
> $abc = `ptree 128` ;
> for $i ( 0 .. $#abc ) {
> print "$abc[$i]<BR> " ;
> }
print "$_<BR>" for `ptree 128`;
> The problem with this script is that it does not print the spaces which
> appear ( if at all ) before $abc[$i]
> So instead of outputing
> 10 some proces
> 100 some sub process
> 100 some child process
>
> it prints
>
> 10 some proces
> 100 some sub process
> 100 some child process
>
> How do I fix this ?
That is an HTML question, sorry I don't know HTML.
John
--
use Perl;
program
fulfillment
------------------------------
Date: Tue, 10 Jul 2001 00:25:32 GMT
From: "Mark Dudley" <pen411@home.com>
Subject: Re: Some perl questions
Message-Id: <0Yr27.23826$B5.5161537@news1.rdc1.tn.home.com>
> 1. What does the following do ? Does it return the error level ?
> $rc = 0xffff & system ( "some command" ) ;
> 2. What does the following do ? Is it for initializing ?
> $abc = shift ;
> $abc = `ptree 128` ;
> for $i ( 0 .. $#abc ) {
> print "$abc[$i]<BR> " ;
> }
> ....
> ...
> The problem with this script is that it does not print the spaces which
appear ( if at all ) before $abc[$i]
That's not really a perl problem, it's an HTML one.
If you want white space, you need to insert it with the tag, or write
it out as straight text using the <pre> tag.
------------------------------
Date: Tue, 10 Jul 2001 09:34:39 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Some perl questions
Message-Id: <994757679.795332099311054.gnarinn@hotmail.com>
In article <bLq27.392823$K5.41256436@news1.rdc1.nj.home.com>,
Kevin Joseph <kejoseph@hotmail.com> wrote:
>
>I have the following Perl related questions. Any assistance would be highly
>appreciated.
>
>1. What does the following do ? Does it return the error level ?
>
>$rc = 0xffff & system ( "some command" ) ;
>
>2. What does the following do ? Is it for initializing ?
>
>$abc = shift ;
>
There comes with you perl a wonderful set of documentation. You would
be advised to learn to use it. There should be the command perldoc
installed. to get info on a particular builtin function, like 'shift', do:
perldoc -f shift
Also, you should try:
perldoc perldoc
perldoc perl
perldoc perlfunc
>3. I have written a couple of cgi scripts which run some system commands.
>Say
>
>print "Content type : text/html" ;
>..
>...
>$abc = `ptree 128` ;
>for $i ( 0 .. $#abc ) {
> print "$abc[$i]<BR> " ;
> }
>....
>...
>The problem with this script is that it does not print the spaces which
>appear ( if at all ) before $abc[$i]
>So instead of outputing
> 10 some proces
> 100 some sub process
> 100 some child process
>
>it prints
>
>10 some proces
>100 some sub process
>100 some child process
>
no actually it prints:
10 some process<BR> 100 some sub
process<BR> 100 some child process<BR>
How this is displayed by your browser is another matter.
>How do I fix this ?
>
learn HTML (and dont ask about that in this newsgroup!)
gnari
------------------------------
Date: 10 Jul 2001 06:06:49 -0700
From: kejoseph@hotmail.com (Kevin Joseph)
Subject: Re: Some perl questions
Message-Id: <54c48ac0.0107100506.7c86fc18@posting.google.com>
Just in case you have done a "perldoc -f shift" using the *wonderful*
documentation you will notice that it says "shift ARRAY". As you can
see ( which is if you have read my post ) the command I have asked
input for is "$abc=shift" wherein $abc is a scalar *not* an array.
Thanks for those who responded....even about the PRE HTML tag. It was
really helpful.
Kevin.
------------------------------
Date: Tue, 10 Jul 2001 13:36:32 GMT
From: Laszlo Gerencser <laszlo.gerencser@portologic.com>
Subject: Re: Some perl questions
Message-Id: <3B4B0519.8FA6502@portologic.com>
Kevin Joseph wrote:
>
> Just in case you have done a "perldoc -f shift" using the *wonderful*
> documentation you will notice that it says "shift ARRAY". As you can
> see ( which is if you have read my post ) the command I have asked
> input for is "$abc=shift" wherein $abc is a scalar *not* an array.
You should read that documentation with more attention.
shift has a scalar return value, $abc is set to this return value.
shift has an array parameter, which - in your example - is not defined.
The default @_
is used as the documentation says.
If you read the perldoc page of the predefined variables, you will
notice that the @_
holds the parameters passed to a subroutine. So the whole line sifts the
first parameter to
the $abc. This is not magic, this is abgsolutely logical and documented.
But don't get started learning perl from perldoc. That's for reference.
Get a good perl book.
--
Laszlo Gerencser
PortoLogic Ltd.
------------------------------
Date: Tue, 10 Jul 2001 18:41:45 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Some perl questions
Message-Id: <994790505.267991587053984.gnarinn@hotmail.com>
Distribution:
Organization:
Keywords:
Cc:
In article <3B4B0519.8FA6502@portologic.com>,
Laszlo Gerencser <laszlo.gerencser@portologic.com> wrote:
>Kevin Joseph wrote:
>>
>> Just in case you have done a "perldoc -f shift" using the *wonderful*
>> documentation you will notice that it says "shift ARRAY".
actually it says (in my version):
shift ARRAY
shift
meaning it can be called with or without array parameter
>> As you can
>> see ( which is if you have read my post ) the command I have asked
>> input for is "$abc=shift" wherein $abc is a scalar *not* an array.
>You should read that documentation with more attention.
>shift has a scalar return value, $abc is set to this return value.
>shift has an array parameter, which - in your example - is not defined.
>The default @_
>is used as the documentation says.
dont forget that the default can be @ARGV
(snip)
>But don't get started learning perl from perldoc. That's for reference.
>Get a good perl book.
>
Yes a good book is great, but spending a weekend reading all the
perldocs can also be a good way, if Perl is not your first programming
language.
It is also great to read the faq once in a while. Then later when you
have a problem, chances are that you will remember reading something
about something similar there, and it will be easier to look it up.
gnari
------------------------------
Date: Wed, 11 Jul 2001 03:22:29 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Some perl questions
Message-Id: <slrn9knhjl.4ot.mgjv@verbruggen.comdyn.com.au>
[Removed alt.perl and comp.lang.perl. Groups don't exist here]
On 10 Jul 2001 06:06:49 -0700,
Kevin Joseph <kejoseph@hotmail.com> wrote:
> Just in case you have done a "perldoc -f shift" using the *wonderful*
> documentation you will notice that it says "shift ARRAY". As you can
Are you trying to say that you actually did do a 'perldoc -f shift'?
Because if you did, then you didn't read carefully enough. The
documentation mentiones both 'shift ARRAY' and 'shift' on its own. It
also explains what shift without array argument does.
I'll just quote it (and add some underlining), so you see what I mean:
shift ARRAY
^^^^^^^^^^^
shift Shifts the first value of the array off and
^^^^^ returns it, shortening the array by 1 and moving
everything down. If there are no elements in the
array, returns the undefined value. If ARRAY is
^^^^^^^^^^^
omitted, shifts the `@_' array within the lexical
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
scope of subroutines and formats, and the `@ARGV'
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
array at file scopes or within the lexical scopes
^^^^^^^^^^^^^^^^^^^^
established by the `eval ''', `BEGIN {}', `INIT
{}', `CHECK {}', and `END {}' constructs.
See also `unshift', `push', and `pop'. `Shift()'
and `unshift' do the same thing to the left end of
an array that `pop' and `push' do to the right
end.
> see ( which is if you have read my post ) the command I have asked
> input for is "$abc=shift" wherein $abc is a scalar *not* an array.
You seem to be confused about the *arguments* to shift, as opposed to
what shift *returns*. It takes an array as argument (or nothing), and
it returns the (scalar) first value on that array, removing it from
the array.
So, it takes an array as argument, and returns a scalar, not the other
way around.
Hope that makes it a bit clearer.
Martien
--
Martien Verbruggen |
Interactive Media Division | You can't have everything, where
Commercial Dynamics Pty. Ltd. | would you put it?
NSW, Australia |
------------------------------
Date: Tue, 10 Jul 2001 00:31:09 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Sorting versions of a file, Help needed
Message-Id: <3B4A850D.4D1FE527@earthlink.net>
Philip Newton wrote:
>
> On Mon, 11 Jun 2001 10:27:49 -0400, Afshin Akbari
> <afshina@newbridge.com> wrote:
>
> > I have a file that contains two piece of info.
> > 1) File name 2) version (i.e. abc.pl 12.5)
> > Note that a file could have versions from 12.1 to 12.16 or above.
> >
> > I need to get the latest version of each file.
>
> So, if I understand correctly, you want to sort the versions by the
> number before the decimal point, and then by the number after the
> decimal point, with 12.16 > 12.9 because 16 > 9, but 13.9 > 12.16
> because 13 > 12, right?
>
> > Problem: when I read them into a hash and print the hash "abc.pl 12.9"
> > get to be the highest version. Which we all know it is not.
>
> It is if you treat the version as a floating point number, since 12.90 >
> 12.16 :-).
>
> > I tried to split the digits to the left of " . " and right of " . "
> > and the results is correct but it is really SLOW.
>
> My first impulse would be a Schwartzian Transform (Gee, Randal, couldn't
> your grandfather(?) have picked a different name?). I'll assume that
> your file only contains information on one filename and its versions
>
> my @versions;
> my $name;
> while(<DATA>) {
> chomp;
> my $version;
> ($name, $version) = split;
> push @versions, $version;
> }
>
> my $highest = ( map { $_->[0] }
> sort { $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2] }
> map { [ $_, split(/\./, $_, 2) ] }
> @versions
> )[0];
>
> print "Highest version for file '$name' is $highest.\n";
> # should be 14.11, since 14 > 12 and 11 > 8
>
> __END__
[sample data snipped]
>
> A GRT would also be possible; for that, replace the assignment to
> $highest with
>
> my $highest = ( map { substr($_, 2) }
> sort
> map { pack('CC', split(/\./, $_, 2)) . $_ }
> @versions
> )[-1];
>
> Note that here -1 is used as the index because an ascending sort is
> done.
As Anno asked, why sort at all? However, I would use a GRT - like
findmax algorithm, rather than split repeatedly.
my %h; # map file to highest version
while( <DATA> ) {
/^(\S+)\s+(\d+)\.(\d+)$/ or
die "Malformed input on line $.\n";
my $grt = pack "CCa*", $2, $3, "$2.$3";
$h{$1} = $grt if !exists $h{$1} || $grt gt $h{$1};
}
substr $_, 0, 2, "" for @h{keys %h};
print "Highest version for file '$_' is $h{$_}.\n" for sort keys %h;
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: Mon, 09 Jul 2001 11:19:20 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: sortlen -- filter to sort text by line length
Message-Id: <3B49CB78.BD415164@earthlink.net>
Greg Bacon wrote:
>
> [Followups set.]
>
> In article <9flop1$4plfn$1@ID-37382.news.dfncis.de>,
> Andreas Krennmair <a.krennmair@aon.at> wrote:
>
> : #!/usr/bin/perl
> : # sortlen -- filter to sort text by line length
> : # (c) 2001 Andreas Krennmair <a.krennmair@aon.at>
> : # distribute after the terms of the GPL
> :
> : @lines = ();
> : while ($line = <STDIN>) {
> : @lines = (@lines, $line);
> : }
>
> Why? Perl has a push operator that is much more efficient:
>
> push @lines, $line;
>
> However, it's even easier to grab all input in one go:
>
> @lines = <STDIN>;
Since this is a standalone program, we could consider using any files
listed on the commandline, too:
@lines = <>;
> : for ($i = 1; $i < @lines ; $i++) {
> : $v = $lines[$i];
> : $j = $i;
> : while ($j > 0 && length($lines[$j-1]) > length($v)) {
> : $lines[$j] = $lines[$j-1];
> : $j--;
> : }
> : $lines[$j] = $v;
> : }
>
> I'd say the following is much clearer:
>
> @lines = sort { length($a) <=> length($b) } @lines;
Or combine the two:
@lines = sort { length($a) <=> length($b) } <;
Or use a GRT, which may be faster for large files:
@lines = map {substr $_, 4} sort map {pack 'Na*', length, $_} <>;
> : foreach $lines (@lines) {
> : print $lines;
> : }
>
> I would probably write that as
>
> print for @lines;
>
> but some people would simply say
>
> print @lines;
>
> TMTOWTDI!
Or combine things even further:
print sort { length($a) <=> length($b) } <>;
or, with GRT:
print map { substr $_, 4 } sort map { pack 'Na*', length, $_ } <>;
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: 9 Jul 2001 12:32:03 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Storing Multiple RegEx Matches
Message-Id: <9icpqj$9ss$1@mobydick.cs.utexas.edu>
In article <3B49C84F.13C01610@portologic.com>,
Laszlo Gerencser <laszlo.gerencser@portologic.com> wrote:
>Do not use /g.
>
>Do it in a loop, and store $1,$2, etc. in arrays.
>
>There is no way to do that with /g.
No, you can do it:
$text = "04/04/68 martin luther king shot; "
. "04/09/64 beatles on ed sullivan; "
. "06/06/44 d-day";
@dates = $text =~ m%(\d\d/\d\d/\d\d)%g;
And if you would like to split them up by month/day/year, you can do this:
@dates = map (do { m%(\d\d)/(\d\d)/(\d\d)%; [ $1, $2, $3 ] }, @dates);
It may not be the prettiest way to do it, but it does work.
- Logan
--
my your his her our their _its_
I'm you're he's she's we're they're _it's_
------------------------------
Date: Tue, 10 Jul 2001 00:06:51 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Storing Multiple RegEx Matches
Message-Id: <3B4A7F5B.3AF3F79B@earthlink.net>
Logan Shaw wrote:
>
> In article <3B49C84F.13C01610@portologic.com>,
> Laszlo Gerencser <laszlo.gerencser@portologic.com> wrote:
> >Do not use /g.
> >
> >Do it in a loop, and store $1,$2, etc. in arrays.
> >
> >There is no way to do that with /g.
>
> No, you can do it:
>
> $text = "04/04/68 martin luther king shot; "
> . "04/09/64 beatles on ed sullivan; "
> . "06/06/44 d-day";
>
> @dates = $text =~ m%(\d\d/\d\d/\d\d)%g;
>
> And if you would like to split them up by month/day/year, you can do
> this:
>
> @dates = map (do { m%(\d\d)/(\d\d)/(\d\d)%; [ $1, $2, $3 ] },
> @dates);
>
> It may not be the prettiest way to do it, but it does work.
Definitely not the prettiest. Why do you have the do block in there? I
don't see what it accomplishes. If you got rid of the word "do" and the
comma after the block, it should work fine:
@dates = map { m%(\d\d)/(\d\d)/(\d\d)%; [ $1, $2, $3 ] } @dates;
Not that I would do it that way... if I wanted to store them split up
into month/day/year, I would use unpack, not another match, and I
wouldn't bother to store the dates between matching them and splitting
them.
@dates = map [unpack "a2xa2xa2", $_], $text =~ m[(\d\d/\d\d/\d\d)]g;
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: 10 Jul 2001 06:09:36 -0700
From: haimaharaj@yahoo.com (Hai Maharaj)
Subject: Re: Text based menuing system in Perl with submenus???
Message-Id: <196ef3f1.0107100509.5f31f6ce@posting.google.com>
Michael Carman <mjcarman@home.com> wrote in message news:<3B446EA9.5C1D234@home.com>...
[.....]
> # EXAMPLE:
> my %menu_hash = (
> E => 'Echo',
> C => 'Charlie',
> A => 'Alpha',
> D => 'Delta',
> B => 'Bravo',
> F => 'Foxtrot');
This may be out of the scope of this newsgroup,
But I am trying to find out the complete list of
words such as the above (Alpha, Bravo, Charlie etc)
which can be used to spell over the phone or something.
If anyone has them handy, please post them.
thanks,
------------------------------
Date: 10 Jul 2001 13:57:37 GMT
From: robseegel@aol.com (Rob Seegel)
Subject: Re: Text based menuing system in Perl with submenus???
Message-Id: <20010710095737.05131.00003169@ng-mb1.aol.com>
Check out the following link:
http://www.columbia.edu/~fuat/cuarc/phonetic.html
More phonetic alphabets than you can shake a stick at.
Regards,
Rob
------------------------------
Date: Tue, 10 Jul 2001 12:49:25 -0700
From: Dirk Wessner <wessner@hps.fzk.de>
Subject: Thank You
Message-Id: <3B4B5C45.468F54A3@hps.fzk.de>
Thank you for these awnsers to this stupid question.
Obviously I have to read the corresponding
chapter in the camel-book
------------------------------
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 1280
***************************************
