[24784] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 6937 Volume: 10

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 31 11:06:11 2004

Date: Tue, 31 Aug 2004 08:05:09 -0700 (PDT)
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, 31 Aug 2004     Volume: 10 Number: 6937

Today's topics:
    Re: Appending two arrays horizontally <bik.mido@tiscalinet.it>
        carp() /  STDERR <r.mcglue@qub.ac.uk>
    Re: carp() /  STDERR <mritty@gmail.com>
    Re: carp() /  STDERR <r.mcglue@qub.ac.uk>
    Re: carp() /  STDERR <mritty@gmail.com>
        Custom web design and web site development (CNA Programming Group)
    Re: Execute Windows program from Perl script (??) (Randal L. Schwartz)
    Re: NEWBIE CGI HELP::Can I verify a user has logged on (joe slash blow)
        perl pattern matching (Niko)
    Re: perl pattern matching <mritty@gmail.com>
    Re: problems with MIME:Lite timeout (dan baker)
    Re: Split and RegEx Help <tore@aursand.no>
    Re: Split and RegEx Help (Vaughn Sargent)
    Re: two's compliment? (Randal L. Schwartz)
        unexpected EXTENDED_OS_ERROR on Windows (Griff)
    Re: unexpected EXTENDED_OS_ERROR on Windows <tore@aursand.no>
    Re: unexpected EXTENDED_OS_ERROR on Windows <mritty@gmail.com>
    Re: unexpected EXTENDED_OS_ERROR on Windows <nobull@mail.com>
    Re: Where's the doc. on perl command-line options? <1usa@llenroc.ude.invalid>
    Re: Xah Lee's Unixism <amajorel@teezer.fr>
    Re: Xah Lee's Unixism <jwkenne@attglobal.net>
        XML-RPC <lepi_MAKNI_ME_@fly.srk.fer.hr>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Tue, 31 Aug 2004 16:58:49 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Appending two arrays horizontally
Message-Id: <hr39j01lijpc1kbkpnj5jjqdtf98bdsaia@4ax.com>

On Tue, 31 Aug 2004 04:54:29 +0000 (UTC), dkcombs@panix.com (David
Combs) wrote:

>>  my @arr3 = do {
>>      no warnings 'uninitialized';
>>      map "$arr1[$_] $arr2[$_]", 
>>        0 .. ($#arr1>$#arr2 ? $#arr1 : $#arr2);
>>  };
>>
>>(implicitly assuming C<use warnings;> as it "Should"!)
>
>Why the no-warnings stmt?  

Not to get (one of those rare authentically) *unwanted* warnings.

>In case one of the arrays is uninitialized?
>
>Or in case one of the values *within* one of the
>arrays is?

The latter, with the former as a special case of it.

>Anything to say about whether to do this
>in general?

In general there are situations in which it is desirable or even
advisable to *locally* disable some warnings or strictures.

>Also -- *why* turn off the warnings, ie why
>don't you *want* to know about them (these "errors"?)?

Because I *do* know in advance that I may get a warning that is not
really something going wrong.

In (my) practice C<no warnings 'uninitialized'> is the most frequently
used and the most reasonable one.

Hope this example clarifies things up (I moved the code to a sub):


  #!/usr/bin/perl -l
  
  use strict; 
  use warnings;
  
  sub zip (\@\@) {
      my @a=@{ $_[0] };
      my @b=@{ $_[1] };
      # no warnings 'uninitialized';
      map "$a[$_] $b[$_]", 
        0 .. ($#a>$#b ? $#a : $#b);
  }
  
  print '@arr1 and @arr2 have the same length';
  my @arr1 = qw /foo bar baz/;
  my @arr2 = 0 .. $#arr1;
  print for (zip @arr1, @arr2), '';
  
  print '@arr1 and @arr2 have different lengths';
  @arr2 = 0 .. @arr1;
  print for zip @arr1, @arr2;
  
  __END__


If you run it, then you get:


  # ./foo.pl
  @arr1 and @arr2 have the same length
  foo 0
  bar 1
  baz 2
  
  @arr1 and @arr2 have different lengths
  Use of uninitialized value in concatenation (.) or string at
 ./foo.pl line 10.
  foo 0
  bar 1
  baz 2
   3

  
If you uncomment the <no warnings> line the warning goes away and you
get the (supposedly) desired output. Of course it is implicit that I
made an educated guess at what the desired output is for undefined
entries...


Michele
-- 
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
  "perl bug File::Basename and Perl's nature"


------------------------------

Date: Tue, 31 Aug 2004 11:45:44 +0100
From: R McGlue <r.mcglue@qub.ac.uk>
Subject: carp() /  STDERR
Message-Id: <ch1ksm$nje$1@news.qub.ac.uk>

Hi
  Im runnin a script which detatches from the tty and uses carp in 
certain places. Is there any way i can redirect the STDERR messages to a 
logfile instead of losing them to the ether??

many thanks

Ronan


------------------------------

Date: Tue, 31 Aug 2004 12:24:11 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: carp() /  STDERR
Message-Id: <L5_Yc.10590$Rk.276@trndny03>

"R McGlue" <r.mcglue@qub.ac.uk> wrote in message
news:ch1ksm$nje$1@news.qub.ac.uk...
> Hi
>   Im runnin a script which detatches from the tty and uses carp in
> certain places. Is there any way i can redirect the STDERR messages to
a
> logfile instead of losing them to the ether??

my $logfile = '/home/errs.txt';
open STDERR, '>>', $logfile or die "Could not redirect STDERR: $!";

(Note: Perl is smart enough to not lose track of the original STDERR if
the open fails here, so the die message will still be printed to
wherever STDERR is pointing if $logfile cannot be opened for appending.)

Hope this helps,
Paul Lalli




------------------------------

Date: Tue, 31 Aug 2004 15:28:19 +0100
From: R McGlue <r.mcglue@qub.ac.uk>
Subject: Re: carp() /  STDERR
Message-Id: <ch21u2$omd$1@news.qub.ac.uk>

Paul Lalli wrote:

> "R McGlue" <r.mcglue@qub.ac.uk> wrote in message
> news:ch1ksm$nje$1@news.qub.ac.uk...
> 
>>Hi
>>  Im runnin a script which detatches from the tty and uses carp in
>>certain places. Is there any way i can redirect the STDERR messages to
> 
> a
> 
>>logfile instead of losing them to the ether??
> 
> 
> my $logfile = '/home/errs.txt';
> open STDERR, '>>', $logfile or die "Could not redirect STDERR: $!";
> 
> (Note: Perl is smart enough to not lose track of the original STDERR if
> the open fails here, so the die message will still be printed to
> wherever STDERR is pointing if $logfile cannot be opened for appending.)
> 
> Hope this helps,
> Paul Lalli
> 
> 
so if carp was to return and error message it would get written to 
/home/errs.txt
?



------------------------------

Date: Tue, 31 Aug 2004 14:50:00 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: carp() /  STDERR
Message-Id: <se0Zc.145$EB6.112@trndny08>

"R McGlue" <r.mcglue@qub.ac.uk> wrote in message
news:ch21u2$omd$1@news.qub.ac.uk...
> Paul Lalli wrote:
>
> > my $logfile = '/home/errs.txt';
> > open STDERR, '>>', $logfile or die "Could not redirect STDERR: $!";
> >
> > (Note: Perl is smart enough to not lose track of the original STDERR
if
> > the open fails here, so the die message will still be printed to
> > wherever STDERR is pointing if $logfile cannot be opened for
appending.)
> >
> so if carp was to return and error message it would get written to
> /home/errs.txt
> ?

Any message printed to STDERR, including those printed by carp(), would
be printed to whatever file you named in $logfile (/home/errs.txt in
this case), yes.

Paul Lalli




------------------------------

Date: 31 Aug 2004 06:01:10 -0700
From: cna_pgroup@yahoo.com (CNA Programming Group)
Subject: Custom web design and web site development
Message-Id: <a03287ab.0408310501.529d7472@posting.google.com>

I'm experienced PHP/Coldfusion developer from Russia with more than 5
years of experience in the field.

Also i have a good web designer here. So we can create the whole site
from the very beginning.

If you want to make a hi-quality website fast and for a reasonable
price - than this offer is for you.

I usually charge USD 7 per hour, but would rather like flat-rate
per-project prices.

Portfolio can be seen at http://www.actionwebstudio.com/portfolio.php

Please contact us at http://www.actionwebstudio.com/contacts.php or
via email at alex_c@list.ru if you are interested.

Thanks


------------------------------

Date: 31 Aug 2004 07:43:37 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Execute Windows program from Perl script (??)
Message-Id: <861xhncqqu.fsf@blue.stonehenge.com>

*** post for FREE via your newsreader at post.newsfeed.com ***

>>>>> "Zebee" == Zebee Johnstone <zebee@zip.com.au> writes:

Zebee> But I think most people are lost and really dont' understand what to ask
Zebee> yet.

Then they should find a help desk.  Usenet is not a help desk.
Neither are the mailing lists that you keep waving about at
learn.perl.org, which have less noise only because they also have less
signal.  If those mailing lists handled as much volume as this
newsgroup, the noise would go up significantly.

Usenet and the mailing lists are for members of the tribe to
communicate internally.  Outsiders must be accepted before
participating.  Some tribes have simple membership requirements ("just
show up!"), but the Perl tribe *necessarily* demands an amount of
demonstrated self-discipline and courtesy.  And anyone that doesn't
want to meet those membership requirements can certainly purchase
support from various organizations; there's no right-to-presume that
the free resources are also for non-members.

And, this is absolutely not just the Perl community, although it's
probably been made worse because the bar has been set higher in
reaction to the big CGI Perl goldrush in the 90s, which has been both
a blessing and a curse.

Just another guy who has been around since the beginning of a lot of things,

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!


 -----= Posted via Newsfeed.Com, Uncensored Usenet News =-----
http://www.newsfeed.com - The #1 Newsgroup Service in the World!
-----== 100,000 Groups! - 19 Servers! - Unlimited Download! =-----
                  


------------------------------

Date: 31 Aug 2004 07:52:48 -0700
From: lyradsr@netscape.net (joe slash blow)
Subject: Re: NEWBIE CGI HELP::Can I verify a user has logged on
Message-Id: <bdd6451.0408310652.5fc3a42d@posting.google.com>

Chris Mattern <matternc@comcast.net> wrote in message news:<tJOdnd5-Re0ZCK7cRVn-gA@comcast.com>...
> joe slash blow wrote:
> 
> > I have very basic Perl knowledge and inherited a script for work.
> > If the user inputs a specific 4 character code in one of 3 places on a web
> > page, I have to verify that the user has logged onto an NT domain account
> > before I let them go to the next html page. If they don't use the 4
> > character code they can go on unchecked.
> > I don't want them to have to log on to the perl page, just verify that
> > they are logged onto the system.
> > Any help would be greatly appreciated.
> > 
> Er, how do you determine which NT user he's supposed to be?  Does the
> four character code ID him?  Can you determine it from his IP address?

All users will be logged onto a work computer connected to the domain.


------------------------------

Date: 31 Aug 2004 07:57:56 -0700
From: sanynn@hotmail.com (Niko)
Subject: perl pattern matching
Message-Id: <505fba70.0408310657.5065c74b@posting.google.com>

Hi, 

i need help replacing string in the middle of line like this :


var1:string:yyy:zzz:kkk.....:ggg


Need to replace the string.

I already know the value of var1, that help me to find the specific line in my file.

only left is to replace the string with a new string.

any idea ?

Thanks.


------------------------------

Date: Tue, 31 Aug 2004 15:03:08 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: perl pattern matching
Message-Id: <Mq0Zc.120$rL5.86@trndny09>

"Niko" <sanynn@hotmail.com> wrote in message
news:505fba70.0408310657.5065c74b@posting.google.com...
> Hi,
>
> i need help replacing string in the middle of line like this :
>
> var1:string:yyy:zzz:kkk.....:ggg
>
> Need to replace the string.
>
> I already know the value of var1, that help me to find the specific
line in my file.
>
> only left is to replace the string with a new string.
>
> any idea ?


Your problem statement is much too vague.  Where is the string you want
to replace stored? (ie, in what variable?).  With what do you want to
replace this string?  Do you want to replace *all* of the string, or
just a part of it?

Whenever possible, post a *short* but *complete* program that
demonstrates the problem you need to solve.  That means actual, real
Perl code that other people can copy and run.

Paul Lalli




------------------------------

Date: 31 Aug 2004 06:51:52 -0700
From: botfood@yahoo.com (dan baker)
Subject: Re: problems with MIME:Lite timeout
Message-Id: <13685ef8.0408310551.757b70e8@posting.google.com>

Gunnar Hjalmarsson <noreply@gunnar.cc> wrote in message news:<2phnjcFl98osU1@uni-berlin.de>...
> 
> > Failed to connect to mail server: Bad file descriptor
> Sounds like a server configuration thing to me.
---------------

that is what I suspect... I use Comcast cable for my ISP, and
apparently they have some "throttling" going on to attempt to control
outgoing mail in case people get a virus, or try to spam the world.

I am not is a huge hurry to send out my couple hundred newsletters, so
I am hoping that there is some way for me to use MIME:Lite to send a
couple, disconnect, reconnect, and send a couple more... I just want
to automate it so I dont have to manually chop the list up .

so..... any tips on how to send a couple emails (using SMTP), then
pause or timeout, or whatever, and re-establish a connection and send
a coulpe more? I have tried a couple things using different values for
the timeout, combined with sleep() inbetween and it does not seem to
have any effect.
MIME::Lite->send('smtp', $cSMTPserver , Hello=>$cSMTPserver ,
Timeout=>10 );


d


------------------------------

Date: Tue, 31 Aug 2004 12:35:08 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: Split and RegEx Help
Message-Id: <pan.2004.08.31.10.35.07.928467@aursand.no>

On Mon, 30 Aug 2004 20:28:20 -0700, Vaughn Sargent wrote:
> I have some flat file data coming in from a client that is ~ delimited. 
> I have no control over the incoming data so I'm stuck with the ~.  What
> I need to do is split the data into fields (which should be easy using
> split) however, some text fields may contain a ~ but it's not the
> delimiter, it's just part of the text field.  All text fields are
> enclosed with double quotes.

You could try the Text::ParseWords module, which I think comes with Perl
these days;

  #!/usr/bin/perl
  #
  use strict;
  use warnings;
  use Data::Dumper;
  use Text::ParseWords;

  while ( <DATA> ) {
      chomp;
      my @fields = quotewords( '~', 0, $_ );
      print Dumper( \@fields );
  }

  __DATA__
  "Field - One"~234.00~"Field ~ 3"~20040830~"Field 5"


-- 
Tore Aursand <tore@aursand.no>
"Life is pleasant. Death is peaceful. It's the transition that's
 troublesome." (Isaac Asimov)


------------------------------

Date: 31 Aug 2004 07:02:05 -0700
From: sulvand@gmail.com (Vaughn Sargent)
Subject: Re: Split and RegEx Help
Message-Id: <e94beb1c.0408310602.17d10cdd@posting.google.com>

Uri Guttman <uri@stemsystems.com> wrote in message news:<x71xhng9mi.fsf@mail.sysarch.com>...
> >>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:
> 
>   JE> Uri Guttman wrote:
>   >>>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:
>  
>  Vaughn Sargent wrote:
>   >> >> I have some flat file data coming in from a client that is ~
>   >> >> delimited.  I have no control over the incoming data so I'm stuck
>   >> with >> the ~.  What I need to do is split the data into fields
>   >> (which should >> be easy using split) however, some text fields may
>   >> contain a ~ but >> it's not the delimiter, it's just part of the
>   >> text field.  All text >> fields are enclosed with double quotes.
>   >> 
>   >>> You may want to have a look at Text::CSV.  Although it uses a
>   >>> comma as the separator for the data fields it should be trivial to
>   >>> copy the source code and modify it to use the ~ instead.
>   >> 
>   >> without even looking, i wager it has an option to set the separator.
>   >> it is too easy and such a commonly needed feature to believe it
>   >> doesn't support that.
> 
>   JE> For a second you really scared me because I didn't check, either.
> 
>   JE> However according to the module doc on CPAN the standard Text::CSV does not 
>   JE> support changing the separator character (I win).
>   JE> For that you need to use Text::CSV_XS (you win):
> 
>   JE> new(\%attr)
> 
>   JE> sep_char
> 
> 
>   JE>   The char used for separating fields, by default a comme. (,)
> 
>   JE> Now, what do we do with the prices?
> 
> well, i say it is a push (pun intended!).
> 
> odd how the xs version which usually requires more work has the option.
> 
> uri


Thank you very much.  I installed the Text::CSV_XS module and it works
just as I needed it too.  Now any text field that contains my
delimiter of ~ is not seen as a delimiter as text fields are double
quoted.  Also, I have the option to change the delimiter to ~ instead
of the default ,

Thanks again!
Vaughn


------------------------------

Date: 31 Aug 2004 07:46:30 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: two's compliment?
Message-Id: <86vfezbc1l.fsf@blue.stonehenge.com>

*** post for FREE via your newsreader at post.newsfeed.com ***

"two's compliment" would be

        he: You look nice!
        she: You look nice too!

Maybe you meant "two's complement"?

And I would have sent this in email, but you didn't provide a valid
return address or any means to decrypt same.  Shame on you!
People like you not understanding Usenet operating procedure.
-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!


 -----= Posted via Newsfeed.Com, Uncensored Usenet News =-----
http://www.newsfeed.com - The #1 Newsgroup Service in the World!
-----== 100,000 Groups! - 19 Servers! - Unlimited Download! =-----
                  


------------------------------

Date: 31 Aug 2004 03:45:42 -0700
From: griffph@aol.com (Griff)
Subject: unexpected EXTENDED_OS_ERROR on Windows
Message-Id: <d698d3e7.0408310245.7a6183a8@posting.google.com>

hi there

I'm running ActiveState Perl v5.6.1 on Windows XP.

The code 

$cmdstr = "copy old.txt new.txt";
system($cmdstr);
print "$^E"; 

produces the results 
------------------------------------------
1 file(s) copied.
The system cannot find the file specified.
------------------------------------------
When I check the files old.txt and new.txt, the file copy has actually worked.
Why do I get this error message in EXTENDED_OS_ERROR ?
(If I print the "$^E" variable before running the program, I can see it is empty.)

Your assistance would be welcomed.

Thanks, Griff


------------------------------

Date: Tue, 31 Aug 2004 14:07:32 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: unexpected EXTENDED_OS_ERROR on Windows
Message-Id: <pan.2004.08.31.12.07.31.484139@aursand.no>

On Tue, 31 Aug 2004 03:45:42 -0700, Griff wrote:
> I'm running ActiveState Perl v5.6.1 on Windows XP.
> 
> The code
> 
> $cmdstr = "copy old.txt new.txt";
> system($cmdstr);
> print "$^E";
>
> [...]

Why rely on non-portable methods?  I don't have the answer to your
question, but I have - most possibly - a solution to your problem.

Use the File::Copy module which comes with Perl;

  #!/usr/bin/perl
  #
  use strict;
  use warnings;
  use File::Copy;

  copy( 'old.txt', 'new.txt' ) or die "Copy failed; $!\n";
  move( 'old.txt', 'new.txt' ) or die "Move failed; $!\n";

Please read the documentation for the File::Copy module for more
information and examples.


-- 
Tore Aursand <tore@aursand.no>
"I know not with what weapons World War 3 will be fought, but World War
 4 will be fought with sticks and stones." (Albert Einstein)


------------------------------

Date: Tue, 31 Aug 2004 13:31:36 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: unexpected EXTENDED_OS_ERROR on Windows
Message-Id: <Y4%Yc.17$vx6.0@trndny05>

> $cmdstr = "copy old.txt new.txt";
> system($cmdstr);
> print "$^E";
>
> produces the results
> ------------------------------------------
> 1 file(s) copied.
> The system cannot find the file specified.
> ------------------------------------------
> When I check the files old.txt and new.txt, the file copy has actually
worked.
> Why do I get this error message in EXTENDED_OS_ERROR ?
> (If I print the "$^E" variable before running the program, I can see
it is empty.)

From perldoc perlvar:

             Under Win32, $^E always returns the last error
             information reported by the Win32 call
             "GetLastError()" which describes the last error from
             within the Win32 API.  Most Win32-specific code will
             report errors via $^E.  ANSI C and Unix-like calls
             set "errno" and so most portable Perl code will
             report errors via $!.

             Caveats mentioned in the description of $! generally
             apply to $^E, also.  (Mnemonic: Extra error
             explanation.)

That tells us that $^E is set to th elast error from anywhere within the
Win32 API, regardless of the failure or sucess of the actual call that
initiated the procedure.  My guess (and this is a complete guess) is
that Win32 internally makes several API calls for the copy command, one
of which is to see if the target of the copy already exists.  Because it
does not, that call to that specific API procedure set the value of $^E.

The "caveats" mentioned above boil down to: The error indicators (such
as $! and $^E) are valid if and only if the immediately preceding system
command failed.  That is why you should always check the return value of
the system call.  If the system call failed, then and only then should
you bother examining the error indicating variables.

Hope this helps,
Paul Lalli




------------------------------

Date: Tue, 31 Aug 2004 14:30:46 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: unexpected EXTENDED_OS_ERROR on Windows
Message-Id: <ch1ua4$7bf$1@sun3.bham.ac.uk>

Griff wrote:

> system($cmdstr);
> print "$^E"; 

You should only inspect $! or $^E after system() if the return value 
from system() was -1.



------------------------------

Date: 31 Aug 2004 12:59:15 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Where's the doc. on perl command-line options?
Message-Id: <Xns95565B6DF1637asu1cornelledu@132.236.56.8>

workingstiff19@hotmail.com (John Doe) wrote in 
news:440d3e16.0408302314.221477e0@posting.google.com:

> For example, I need to know what "perl -an" does.  It's not in the
> "man perl" page.  Could not find it at perl.org or Perlmonks. 
> Google-searched comp.lang.perl.* for things like "command line
> switches," "command line arguments," and "command line options," only
> to find info on argument processing.  [SARCASM] I admit that anyone
> with half a brain should be able to divine which of the 90 (count 'em,
> ninety) core documentation modules has what I seek: [/SARCASM]

Of course, perldoc perlrun, as others have pointed out, contains the 
documentation. And you need not divine anything, you can always check 
perldoc perltoc to find out.

However, I am curious, did you even try

perl --help

Usage: C:\Perl\bin\perl.exe [switches] [--] [programfile] [arguments]
 ...
  -a              autosplit mode with -n or -p (splits $_ into @F)
 ...
  -n              assume 'while (<>) { ... }' loop around program

before resorting to sarcasm?

-- 
A. Sinan Unur
1usa@llenroc.ude.invalid 
(remove '.invalid' and reverse each component for email address)



------------------------------

Date: Tue, 31 Aug 2004 10:55:56 +0000 (UTC)
From: Andre Majorel <amajorel@teezer.fr>
Subject: Re: Xah Lee's Unixism
Message-Id: <slrncj8m5n.2pt.amajorel@atc5.vermine.org>

On 2004-08-31, Brian Inglis <Brian.Inglis@SystematicSW.Invalid> wrote:
> On Tue, 31 Aug 2004 01:12:55 +0000 (UTC) in alt.folklore.computers,
> Andre Majorel <amajorel@teezer.fr> wrote:
>
>>On 2004-08-30, Antony Sequeira <usemyfullname@hotmail.com> wrote:
>
>>> Windows (MS) is not 'Unixism'?
>>
>>If by unixism, you mean any operating system that has a
>>hierarchical filesystem and byte stream files, yes. But that
>>would include quite a few other non-Unix operating systems,
>>including Mac OS 9, Prologue and probably everything else this
>>side of CP/M (DOS 1.x shall be deemed to be CP/M).
>
> DOS 2.x+ shall be deemed to be CP/M+! 

Wasn't it in version 2 that they added directories and
Unix-style file handles ?

-- 
André Majorel <URL:http://www.teaser.fr/~amajorel/>
Conscience is what hurts when everything else feels so good.


------------------------------

Date: Tue, 31 Aug 2004 14:26:03 GMT
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Xah Lee's Unixism
Message-Id: <%T%Yc.29567$Es2.11957889@news4.srv.hcvlny.cv.net>

Andre Majorel wrote:
> On 2004-08-31, Brian Inglis <Brian.Inglis@SystematicSW.Invalid> wrote:
> 
>>On Tue, 31 Aug 2004 01:12:55 +0000 (UTC) in alt.folklore.computers,
>>Andre Majorel <amajorel@teezer.fr> wrote:
>>
>>
>>>On 2004-08-30, Antony Sequeira <usemyfullname@hotmail.com> wrote:
>>
>>>>Windows (MS) is not 'Unixism'?
>>>
>>>If by unixism, you mean any operating system that has a
>>>hierarchical filesystem and byte stream files, yes. But that
>>>would include quite a few other non-Unix operating systems,
>>>including Mac OS 9, Prologue and probably everything else this
>>>side of CP/M (DOS 1.x shall be deemed to be CP/M).
>>
>>DOS 2.x+ shall be deemed to be CP/M+! 
> 
> 
> Wasn't it in version 2 that they added directories and
> Unix-style file handles ?

Yes, and also a single-process pipe emulator.  Ever since 2.0, MS has 
been trying to turn MS-DOS (later, Windows) into a Unix clone.

-- 
John W. Kennedy
"...when you're trying to build a house of cards, the last thing you 
should do is blow hard and wave your hands like a madman."
   --  Rupert Goodwins


------------------------------

Date: Tue, 31 Aug 2004 15:48:13 +0200
From: lepi <lepi_MAKNI_ME_@fly.srk.fer.hr>
Subject: XML-RPC
Message-Id: <ch1vcm$r4f$1@bagan.srce.hr>

Hello

How can I get XML source written in a separate file from server response 
  and client request before that XML gets parsed???
Please, it is very important!!

I'm using Frontier::RPC

Thanks


------------------------------

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 6937
***************************************


home help back first fref pref prev next nref lref last post