On Tue, Feb 02, 2016 at 08:59:44PM -0500, Jonathan Levi via macperl wrote:
> Can someone explain why the following:
>
> echo alphabet | perl -e '$_=; if (m/pha/){print $PREMATCH, "\n"}'
>
> yields "" instead of "al", as I expected?
>
> Jonathan
If you want the long name, you need to use the Eng
On Sat, Jul 30, 2005 at 06:41:35PM +0200, Louis Pouzin wrote:
> It is trivial to grow a hash within a hash, e.g.
> $H{$ip}{ng}{gov}{nigeria}{www}='';
> $H{$ip}{ng}{gov}{nigeria}{oil}='';
>
> but I don't know a way to grow a hash within an array, such as:
>
> $H{$ip}[0]{$nam4}=''; or
> $H{$ip}[0
On Fri, Oct 22, 2004 at 02:32:09AM +0200, Louis Pouzin wrote:
> I have a data base of IP/domain names that I maintain as plain text
> files. The size is only a few hundred K octets.
>
> I use a hash (of of hashes) for various searches. Building the whole hash
> takes a few seconds.
>
> As the ra
On Mon, May 10, 2004 at 11:51:08AM +1000, Timothy Duke wrote:
> Version #1 (works dreadfullystuffs up the file)
>
> #! perl -w -i
> $filetobechanged = "iBook HD:Desktop Folder:tim.txt";
> open(FILE, "+< $filetobechanged") ;
> while () {
> s/\n//g;
> print FILE ;
> }
> close(F
On Fri, Jan 16, 2004 at 11:00:05PM -0500, Ingo Weiss wrote:
> use Image::Info qw(image_info dim);
> I have worked with modules before (CGI.pm) but I can't really make sense
> of the qw-syntax in line 1.
Your real question has been answered, so I'll just explain that
qw(a string of words) is esse
On Thu, Sep 11, 2003 at 11:04:40AM +0200, Louis Pouzin wrote:
> Hi,
>
> In a script intended for mac, unix and windows platforms, I use the
> "rand" function. It is essential that it produces the same sequence on
> all three platforms. This is the case with mac and unix. On windows, it's
> a compl
On Tue, Jun 17, 2003 at 09:49:39PM -0700, Richard Cook wrote:
> Anyone got examples of Perl programs that can output themselves?
Such a program is called a quine.
http://www.google.com/search?q=perl+quine
Ronald
On Mon, Jun 16, 2003 at 11:19:21AM -0700, Daschbach, John L wrote:
>
> > > Add an extra variable and set that, like
> > >
> > > $exitloop = false;
> > > while( || $exitloop){
> >
> > What do you suppose happens to the input from in that line of code?
>
> It's in $_ as it always is.
Ah ha! No
On Fri, Jun 13, 2003 at 10:20:57PM +0200, Thomas De Groote wrote:
> Add an extra variable and set that, like
>
> $exitloop = false;
> while( || $exitloop){
What do you suppose happens to the input from in that line of code?
Ronald
On Fri, Jun 13, 2003 at 01:16:31PM -0700, Nicholas G. Thornton wrote:
> I have a program I'm working on that reads a text file and does stuff
> with it. Thing is I want to exit from the while() loop prematurely
> if, say, the line is '__END__'. I can't figure out how to do this, exit
> and return
On Sun, Apr 06, 2003 at 08:35:29PM -0700, Nicholas G. Thornton wrote:
> For a program I'm writting I'm making a complex data structure, a hash of
> hashes. I'm constructing a hash along the way, then trying to insert that hash
> into the larger hash. Problem is I'm not sure precicely how to do it.
On Mon, Mar 17, 2003 at 12:52:21AM +0100, Louis Pouzin wrote:
> Hi,
>
> Here is a regex I can't figure out. The intent is to catch all text from
> a line and its continuation if any (in msg headers). In the case here, it
> doesn't work. Anyone could explain ? Thanks.
Your regex uses \s* where it
On Mon, Mar 10, 2003 at 12:24:51AM +, Richard Smith wrote:
> 65: $text =~ s{ ( .*? ) }
> 66: { &selection( $1 ) }gsex;
>
> ..
>
> 83: sub selection {
> 84:
> 85: my ( $name, $checked );
> 86: my $text = shift;
> 87: my $
On Tue, Feb 18, 2003 at 10:24:39PM +0100, Detlef Lindenthal wrote:
> How can I read and process 60 MB of text,
> line by line, but from the end to the beginning
> (last line first). -- I tried thinking of doing this
> by means of the Unix system statement "tail",
> but instead of returning one sing
On Fri, Feb 07, 2003 at 12:25:39AM +0100, Louis Pouzin wrote:
> Thank you Ronald. Your explanations bring much clarification.
>
> On Thu, 6 Feb 2003 10:00:16 -0500, Ronald J Kimball wrote:
>
> > An eof without an argument uses the last file read as argument.
>
> >
On Thu, Feb 06, 2003 at 12:44:43PM +0100, Louis Pouzin wrote:
> I want to read a file by blocks of a certain size. So, "read" is my best friend. But
>I have trouble with the eof flag.
> It seems that eof is true on the beginning (script 1).
> Putting an command up front seems to clear eof (scr
On Tue, Dec 24, 2002 at 11:58:56AM -0600, Jeff Lowrey wrote:
> At 12:38 PM -0500 12/24/02, Nestor, John wrote:
> >> tell application "MacPerl"
> >>activate
> >>with timeout of 6000 seconds
> >>set PathString to Do Script "
> >> #!perl -w
> >>
> >> use File::Find;
> >>
> >> # I
On Sun, Oct 06, 2002 at 08:52:21PM -0700, Richard Cook wrote:
> There seem to be 4? typo's in the `open FILEHANDLE' section of `perlfunc.pod':
>
> # If MODE is < '<' > or nothing, the file is opened for input.
> # If MODE is < '' >>, the file is truncated and opened for
> ^^^
>
On Wed, Jul 31, 2002 at 02:00:22PM -0700, Randall M! Gee wrote:
> On 2002 Jul 31 (Wed) 15:55:09 -0400,
> Chris Nandor <[EMAIL PROTECTED]> wrote:
> >
> > #!perl -wl
> > use strict;
> >
> > runTestHarness();
> >
> > BEGIN {
> > if ($^O eq 'MacOS') {
> >
On Wed, Jul 03, 2002 at 09:13:52AM -0700, Elton Hughes wrote:
> Hello All,
>
> I found and installed the Spreadsheet::WriteExcel module. I placed it in my
> site_perl folder. When I run a test script, I get the following error
> message:
>
> # Spreadsheet/WriteExcel.pm did not return a true valu
On Tue, Jun 11, 2002 at 10:03:05PM +0200, Louis Pouzin wrote:
> Hi,
>
> The module Date.pm is in the site_perl folder in the MacPerl folder.
> @INC contains the site_perl path.
> Date.pm starts with:
>
> package HTTP::Date; # $Date: 2001/01/04 20:27:15 $
>
> $VERSION = sprintf("%d.%02d", q$Rev
On Fri, May 31, 2002 at 04:04:23PM +0200, Axel Rose wrote:
> >That works for me...
> >...
> >What result did you get?
>
> The same result. I meant I don't get the output within the
> debug window but in the normal MacPerl window. This forces
> me to use the mouse which I don't like in debugging s
On Fri, May 31, 2002 at 10:29:07AM +0200, Axel Rose wrote:
> Hi Ronalds,
>
> thanks for the quick answer.
> Is there any workaround?
> I would simply love to have the ability to debug regular expressions
> interactively.
>
> I tried:
> DB<10> ;{$x="blah"; $x =~ /(a)/; print $1}
> but this also
On Thu, May 30, 2002 at 10:29:15PM +0200, Axel Rose wrote:
> Can anybody confirm this:
>
> within the debugger (520r1, 561r1)
> x $1
> p $1
> print $1
> don't show the value of $1 after a match in debugger.
>
> main::(Dev:Pseudo:1): 1;
> DB<1> $x = "blah"
>
> DB<2> $x =~ /([la])/
>
>
On Mon, May 27, 2002 at 09:04:13PM +0100, Alan Fry wrote:
> At 12:19 pm -0400 27/05/02, Chris Nandor wrote:
> > This works fine, with embedded spaces:
> >
> > my $f = "Bourque:Desktop Folder:file.txt";
> > open F, $f or die $!;
> > print scalar readline F;
> >
> >This does not:
> >
> > my $f
On Mon, Apr 08, 2002 at 09:56:48AM -0700, Andrew O. Mellinger wrote:
> At 6:48 PM +0200 4/8/02, Louis Pouzin wrote:
> >Hi listers,
> >
> >I want to read several text files into a single string.
> >
> >use strict;
> >@ARGV=('fil1','fil2','fil3');
> >my $fil = do{local $/; <>};
> >print $fil;
> >__E
On Thu, Jan 31, 2002 at 01:36:47PM +, [EMAIL PROTECTED] wrote:
> Okay, one more quick question after searching the usual resources and not
> finding anything that looks quite right. (I never figured out how to do
> this in Unix Perl either, but I figure it has to be a piece of cake for
> some
On Fri, Jan 25, 2002 at 11:43:46AM -0700, Keary Suska wrote:
> I just remembered: variables declared with my() are considered private to
> the package and cannot be accessed even by their full invocation:
> $package::foo ($::foo is shorthand for $main::foo).
Variables declared with my() are not i
On Thu, Jan 24, 2002 at 02:12:19PM +0100, Anette Seiler wrote:
> I have a text file named "fruit", containing several lines, like this:
>
> apples
> oranges
> peaches
> apples
> bananas
> peaches
> bananas
> oranges
>
> In my script I read the textfile into an array with the following code:
>
On Wed, Dec 26, 2001 at 07:56:59PM +0100, Bart Lateur wrote:
> On Wed, 26 Dec 2001 17:34:43 +0100 (MET), Louis Pouzin wrote:
>
> >On Sun, 23 Dec 2001 04:21:26 +0100, Bart Lateur wrote:
> >
> >>(?s:(.*?3))
> >>instead.
> >
> >I had tried that, to no avail. The interpreter croaks:
> ># Sequence
On Sun, Dec 23, 2001 at 10:56:01PM -0500, Ingo wrote:
> Hi,
>
> I am looking for a very brief description how to catch data
> passed by a POST form. I am familiar with GET forms, but I don't
> know the POST mechanism.
If you use the CGI module, which is part of the standard distribution, you
sho
On Mon, Dec 17, 2001 at 05:04:28PM +0100, Eelco Alosery wrote:
> what is wrong whit thee's lines, if i run this, perl make's a directory
> testdir but it olso makes a file testdir/test.file.
> perl dus not make the file in the directory testdir.
>
> on the internet under unix it works fine but on
On Wed, Dec 05, 2001 at 10:20:45PM +, Richard Smith wrote:
> I have a list of Referrer names with a frequency
> seperated by a space, as follows:
>
> "http://www.foo.com 140"
> "http://www.bar.com 10"
> "http://www.foo.com/faux 1087"
>
> I want to sort this list by the frequency, and by the
On Wed, Nov 21, 2001 at 02:25:35PM +0100, Louis Pouzin wrote:
> Hi,
>
> I can't figure out what's wrong in the following. Any hint ?
>
> Thanks
>
> Here is a script:
>
> #!perl -w
> my $days = "Mon|Tue|Wed|Thu|Fri|Sat|Sun";
> while () {$lin = $_;
> /^Date:\s+$days,\s+(\d\d?)/o && do {
>
On Mon, Nov 19, 2001 at 05:09:45PM -0700, Keary Suska wrote:
> IIRC, technically, the for() would take more time but only noticeable with
> exceptionally large arrays. I seem to recall something about for() copying
> an array before iterating.
I'm not sure what you mean about for() copying an arr
On Fri, Nov 09, 2001 at 04:10:31PM +, Richard Smith wrote:
> This seems such an obvious operation, but the syntax
> escapes me. I have an array of up to 6 values, which I
> want to add together. I am sure there must be a
> shorthand version of this:
>
> $result = @array[0] + @array[1] + @arra
On Thu, Oct 25, 2001 at 12:09:25AM -0600, Keary Suska wrote:
> I would, except I can't quite predict where the error could happen, which
> means I would have to eval the whole script, and being several thousands of
> lines long, not including the modules I am loading, it really hurts
> performance
On Thu, Oct 18, 2001 at 07:00:38PM +0200, Pascal Oberndoerfer wrote:
> Hello.
>
> I got into trouble using grouping and variables in regular expressions.
>
> Given this scenario:
>
> s/search_for(but_preserve)/replace_with $1/;
>
> I can also do:
>
> $pattern = 'search_for(but_preserv
On Fri, Sep 14, 2001 at 06:24:03PM -0500, Kris Hunt wrote:
> Where can I find a dictionary-like list of English words in a text
> file for use in Perl programs?
>
One good list, ENABLE, may be found at
http://personal.riverusers.com/~thegrendel/software.html
I find /usr/dict/words to be unsuit
On Tue, Aug 14, 2001 at 12:54:10PM -0700, Noah Hoffman wrote:
> I've got a cgi running on an NT box that's communicating with Mac OS 9.1
> and Win 2000 machines. Part of the process involves getting the time and
> storing it as epoch seconds to be used later in some time math. The
> problem i
On Mon, Aug 06, 2001 at 06:35:43PM +0200, Louis Pouzin wrote:
> It looks as if Getopt::Std would fit my case, but I haven't yet been able
> to call it from my script. I seem not to understand how to pass it
> arguments.
While Scott is correct in his reply that MacPerl does not have a command
line
On Thu, Aug 02, 2001 at 12:32:16PM +0200, Louis Pouzin wrote:
> Hi,
>
> Here is a test case:
>
> #!perl -w
> @ARGV=('-x','tonus','mbx','5','2-4','-x');
> $n=0;
> grep {(/^-x$/ && splice (@ARGV,$n,1) && ($n > $#ARGV || ($ext =
>splice(@ARGV,$n--,1 || ++$n}@ARGV;
> print "n=$n, ext=$ext, arg
On Mon, Jul 23, 2001 at 10:09:11AM -0400, Scott R. Godin wrote:
> on 07/23/2001 09:49 AM, Chris Nandor at [EMAIL PROTECTED] wrote:
>
> > At 06:45 -0700 2001.07.23, Randal L. Schwartz wrote:
> >>> "Chris" == Chris Nandor <[EMAIL PROTECTED]> writes:
> >>
> >> Chris> Give the MacPerl app more R
On Mon, Jul 23, 2001 at 09:39:57PM +0900, [EMAIL PROTECTED] wrote:
> >On Sat, Jul 21, 2001 at 01:16:04PM +0900, [EMAIL PROTECTED] wrote:
> >
> > > tr/// is slightly more efficient than s///,
>
>
> At 7:55 AM -0400 21/07/01, Ronald J Kimball wrote:
> >I think
On Sat, Jul 21, 2001 at 01:16:04PM +0900, [EMAIL PROTECTED] wrote:
>
> Matthew Fischer <[EMAIL PROTECTED]>wrote:
> >What is the best way to find the number of occurences of a specific
> >character in a string? I have some form data which is in a variable
> >$FORM{'countries'}, and I need to know
On Thu, Jul 12, 2001 at 10:27:00AM -0400, Brad Ummer wrote:
> >Use quotemeta() or \Q\E instead:
> >
> >if ($db_string =~ /\Q$web_string/) {
> > print "Match!\n";
> >}
> Exactly what I was looking for. Thank you. Now, just a question of
> usage- are quotemeta() and \Q\E exchangeable? Also, if
On Thu, Jul 12, 2001 at 11:21:18AM +0200, Detlef Lindenthal wrote:
>
> > The result of this is "no match" since the parentheses are being
> > evaluated somehow. If I remove one of the parentheses in one of the
> > strings, I get an error "unmatched () in regexp". If I remove all of
> > the pare
On Mon, Jul 09, 2001 at 04:59:02PM -0700, John W Baxter wrote:
> Which is "better"? The regular expression and ?: somehow may feel more
> Perlish.
Personally, I think that the "better" solution is to use File::Basename,
because it works correctly across platforms and handles odd cases that you
p
On Mon, Jul 09, 2001 at 05:18:08PM -0400, Morbus Iff wrote:
> >if ($fileName =~ /\W+/) {
>
> Use:
>
> if ($fileName =~ /[\W+\.]/) {
\W already includes period... I think you meant:
if ($fileName =~ /[^\w\.]/) {
# bad, bad filename!
}
Reject the filename if there's any character that's
On Thu, Jun 21, 2001 at 10:16:32AM -0400, Adam Stern wrote:
> while(1<2) {
> while () {
> push(@cli_in,$_);
> }
This will keep reading input until the connection to the client closes.
> while(<$remote>) {
> push(@serv_in,$_);
> }
This will keep readi
On Sat, Jun 16, 2001 at 04:41:48AM +0200, Louis Pouzin wrote:
> If an empty file is opened for appending, it gets an end-of-line on the
> beginning.
Opening a file for appending does not insert a newline at the beginning of
the file. I suspect that you are creating the file in BBEdit, and have
On Tue, Jun 12, 2001 at 12:02:21AM -0400, Adam Russell wrote:
> So, ok. I now know how to get a CR in MacPerl. However, why does MacPerl
> convert \r to \n ?
Oh, I see, I thought you were asking how to protect a carriage return
character when FTPing a script from Unix to Mac.
The usual way to
On Mon, Jun 11, 2001 at 09:26:49PM -0400, Adam Russell wrote:
> in cases when presented with a script( devloped on *nix) that contains
> a /r (ASCII 13) would it help to simply replace the /r with a /13 so as
> to avoid the automatic conversion to a linefeed?
You mean \r... What is the context
On Wed, May 30, 2001 at 05:20:46PM -0400, Dan Wolchonok wrote:
> i tried to open my script with bbedit 3.5 (i think that's the version), and
> it wouldn't open it
> do i need a later version?
>
> what is a freeware editor i could use quickly and easily
BBEdit Lite 4.6:
http://www.barebones.com/
On Sun, May 20, 2001 at 10:57:11AM +0200, David wrote:
> Just follow the Indexer.pm that i want to require, but I have this
> message
> [Sun May 20 10:53:38 2001] Indexer.pm: Indexer.pm did not return a true
> value at admin.cgi line 20. BEGIN
> failed--compilation aborted at admin.cgi line 22.
T
On Sat, May 19, 2001 at 02:06:33PM -0400, Randall Perry wrote:
> Just created my 1st object in Perl (with code from the Perl Developers
> Guide), and got the error:
> 'Clock.pm did not return a true value at clock_test.pl line 1.'
>
> Below is the object code, Clock.pm and the program that called
On Wed, May 16, 2001 at 09:58:39AM -0500, Craig S. Cottingham wrote:
> -BEGIN PGP SIGNED MESSAGE-
> Hash: SHA1
>
> On 2001-05-16 9:43, Ken Williams at [EMAIL PROTECTED] wrote:
>
> > To simplify, avoid the chomping:
>
> That assumes that either both files have a newline on the last line,
On Mon, May 07, 2001 at 08:39:42PM -0700, Stewart Leicester wrote:
> I give up...in the last example, why should they ever compare different?
>
In this example, the two hashes compare different because $a{EXTRA}
contains a reference to %b, while $b{EXTRA} contains a reference to %a, and
those tw
On Thu, May 03, 2001 at 06:28:31PM +0200, Detlef Lindenthal wrote:
> How can I test if two lists are equal?
>
> Examples:
> These two lists should be equal:
> @List1a = (1, 2, 3);
> @List1b = (1, 1+1, 1+1+1);
>
> No pair of these should be equal:
> @List2a = ("one", "two", "three");
> @List2b =
On Wed, May 02, 2001 at 11:27:28PM -0400, Randall Perry wrote:
> I'm baffled by perl's scoping of variables. In the code below, the
> $cust_data hash ref is inited outside the while loop. It's then set in the
> while with the results of a PgSQL query.
>
> In the if-else statement $cust_data can b
On Sun, Apr 22, 2001 at 08:26:18PM +0200, Thomas De Groote wrote:
> Hey again,
>
> I got the output from the backticks (how could I guess it was just
> $temp= `command`; ). Now it seems to have a small problem though...
>
> When I call it by use of my CGI, it won't actually do the command and
On Sat, Apr 21, 2001 at 10:08:46AM -0700, Bill Becker wrote:
> Ok, thanks. Now I get the message:
>
> Can't locate object method "autoflush" via package "IO::Handle".
If you go with the autoflush HANDLE EXPR syntax, I believe you need to
explicitly use IO::Handle.
Rohald
On Sat, Apr 21, 2001 at 09:47:08AM -0700, Bill Becker wrote:
> What's the recommended way of flushing output?
>
> My goal is to display a status message on fairly long running task. A
> bytewise examination of a large-ish file consumes some CPU, I would
> like to do something like the spinning
On Fri, Apr 13, 2001 at 08:52:19AM -0500, David Steffen wrote:
> EMACS is cool and all (and I have used it for many years) but somehow it
> seems always to be a little more stress than I'd like. And its Perl
> color coding totally sucks compared to BBEdit.
BBEdit's syntax coloring is okay, but
On Tue, Apr 10, 2001 at 08:54:40AM -0400, Emmanuel. M. Decarie wrote:
> I want to install these localy in my account at my ISP and I can't su
> to root. I tried to install these locally, via the CPAN module, but
> even if I give to MakeFile.pl a prefix pointing to my user repertory,
> the CPAN
On Mon, Mar 19, 2001 at 06:49:19PM +, Alan Fry wrote:
> At 9:41 am -0500 19/03/01, Ronald J Kimball wrote:
>
> >I did provide sample code, in an earlier response to Alan. The correct and
> >robust approach is to start at the beginning of the string and process the
&g
On Mon, Mar 19, 2001 at 12:31:42PM +0200, Sean Carte wrote:
> and this is the error:
>
> ERROR: Unterminated quoted string
> Database handle destroyed without explicit disconnect.
Try turning trace() on and see what it tells you.
> I'm sorry, I realise this is drifting off topic, but I don't
On Mon, Mar 19, 2001 at 09:13:04AM +0100, Detlef Lindenthal wrote:
>
> Ronald J Kimball wrote:
>
> > Still, I don't know why it would be preferable to
> > write a solution with these obscure limitations (which will be difficult to
> > debug if they're ev
On Mon, Mar 19, 2001 at 01:09:12AM +0100, Detlef Lindenthal wrote:
> Hi Alan,
>
> you are right in that you look for precision/safety.
> The safety leak does not seem to be that big; what
> I found: Only if you have the (very rare) string "styl\0"
> within your text your programme will fuddle (or
On Sun, Mar 18, 2001 at 04:04:13PM +, Alan Fry wrote:
> At 9:09 am -0500 17/03/01, Ronald J Kimball wrote:
> >I don't think Bart has misunderstood the problem at all.
>
> With the greatest respect I think you have both misunderstood what I
> was driving
On Sat, Mar 17, 2001 at 02:02:55PM +, Alan Fry wrote:
> At 12:57:50 +0100, Sat, 17 Mar 2001 Bart Lateur wrote:
>
> >On Sat, 17 Mar 2001 11:17:10 +, Alan Fry wrote:
> > >So we really need to find a better way of isolating 'TEXT', 'styl'
> >>(and others like 'PICT' for example) from the st
On Tue, Mar 13, 2001 at 11:37:31PM -0500, Adam Stern wrote:
>
> I don't think I can do a straight forward copy %store = %master. Why?
> Because I'm using references to arrays, not actual arrays. So the values
> in %store point to the same things as %master. If %master changes, so
> does %sto
On Sat, Mar 10, 2001 at 06:31:09PM -0500, Brad Rice wrote:
> I'm having a problem using CGI.pm on my webserver. I can run the script from
> the command line no problem, but when I try running it in the browser I get
> a 500 error message. This is the CGI.pm script:
>
perldoc perlfaq9:
My CGI sc
On Fri, Mar 09, 2001 at 03:33:58PM -0800, Christopher Palmer wrote:
> At 3:24 PM -0800 3/9/01, ehughes wrote:
> >on 3/9/01 3:18 PM, Christopher Palmer at [EMAIL PROTECTED] wrote:
> >
> >>> until ($j = 10) {
> >
> >until ($j == 10) {
> >
> DOOOHHH!!
>
> I HATE when I do that...that's the
On Mon, Mar 05, 2001 at 10:50:07AM +0100, Bart Lateur wrote:
> In 5.6.0:
>
> $_ = 'Yet Another Perl Hacker';
> $switch = 'i';
> print /(?$switch:PERL)/?'Y':'N';
> -->
> Y
>
> But, it doesn't work in 5.004/MacPerl.
>
In 5.004/MacPerl, try this instead:
$_ = 'Yet Another
On Mon, Mar 05, 2001 at 06:33:15AM +0900, [EMAIL PROTECTED] wrote:
> #!perl-w
>
> printf("%2d",((localtime(time))[5]-100)),"\n";
Apparently some programmers have a very short memory. Unless you want your
script to fail for years before 2000 and after 2999, that should be:
(localtime)[5] % 100;
On Mon, Feb 19, 2001 at 02:14:01PM +, Bhavul wrote:
> How to upload the cgi script/
>
> My server has a cgi-bin directory. I created a sample html file which had a
> link to a sample perl script. I uploaded my sample page in the main
> directory and the perl script in the cgi-bin directory. W
On Sun, Feb 04, 2001 at 12:20:34AM -0500, Rich Lafferty wrote:
> On Sat, Feb 03, 2001 at 11:50:56PM -0500, Ronald J Kimball
>([EMAIL PROTECTED]) wrote:
> > On Sat, Feb 03, 2001 at 01:08:26PM -0800, Bill Becker wrote:
> > > #!perl -sp0777i >
> > That looks e
On Sat, Feb 03, 2001 at 01:08:26PM -0800, Bill Becker wrote:
> This script was given to me as being a Perl implementation of one of
> the RSA crypto routines. Could (Would?) someone care to tell me which
> one, and how it works? Details will yield a great BIG thanks!
It doesn't...
> Picture i
Some people like the Reply-To one way, some people like it the other.
Not everyone will be satisfied. If it is changed, people will immediately
start asking for it the old way (I know this from experience).
The list managers have better things to do than change the list settings
every time some
On Wed, Jan 31, 2001 at 11:31:18PM -0500, Scott R. Godin wrote:
> on 01/31/2001 04:26 PM, Ronald J Kimball at
> [EMAIL PROTECTED] wrote:
>
> >> you know, this is sounding more and more like I should send a 'bug report'
> >> to Lincoln Stein about thi
On Wed, Jan 31, 2001 at 04:18:27PM -0500, Scott R. Godin wrote:
> on 01/31/2001 04:04 PM, Bruce Van Allen at [EMAIL PROTECTED] wrote:
>
> > Wait. I think Chris is talking about HTML, and Scott is talking about
> > how CGI.pm *writes* HTML. In CGI.pm's HTML-writing methods,
> > attributes are hand
On Wed, Jan 24, 2001 at 11:16:49AM -0500, Chris Nandor wrote:
> At 16:53 +0100 01.24.2001, Bart Lateur wrote:
> >I recently read several messages on the Perl6 mailing lists, as if 5.6.0
> >wasn't really "ready for prime time". It was "realeased too early", and
> >"not very stable". All text betwee
On Thu, Jan 18, 2001 at 08:13:40PM -0500, Scott R. Godin wrote:
> on 01/11/2001 03:32 AM, Jochen Wiedmann at [EMAIL PROTECTED] wrote:
>
> >> this sort section starting on line 236
> >>
> >> @$rows = sort {
> >> $i = 0;
> >> do {
> >> $colNum = $sortCols[$i++];
> >> $desc = $sortCols[$i++];
> >>
On Thu, Jan 18, 2001 at 12:38:57PM +1030, Paul McCann wrote:
> Hi John,
>
> you asked...
>
> > $_ = "Señor";
> > s~([\x80-\xFF])~$1---~g;
> > print; # Señ---or
> >
> > I want to evaluate ord($1) and then look up in a table that will give
> > me "0x00F1" so that I can print Señ[0x00F1]or.
>
> M
On Tue, Jan 16, 2001 at 11:49:46PM -0500, Scott R. Godin wrote:
> fails:
> my $GameType = param('mapstyle') or $default_mapstyle;
>
>
> works:
> my $GameType = param('mapstyle') || $default_mapstyle;
>
> Am I mistaken in assuming that "I should use 'or' because this is 'string
> values'" or d
86 matches
Mail list logo
