[30752] in Perl-Users-Digest
Perl-Users Digest, Issue: 1997 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Nov 22 03:09:43 2008
Date: Sat, 22 Nov 2008 00:09: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 Sat, 22 Nov 2008 Volume: 11 Number: 1997
Today's topics:
Re: Connect to multiple unix servers <dirk.heinrichs@online.de>
Re: Dose package name has to be the same as the filenam <bart.lateur@pandora.be>
moving/renaming directory between NFS mounts <lehmannmapson@cnm.de>
new CPAN modules on Sat Nov 22 2008 (Randal Schwartz)
Re: post increment or pre increment? <tim@burlyhost.com>
regular expression to detect dos filenames <leave.alone@btinternet.com>
Re: regular expression to detect dos filenames <joost@zeekat.nl>
Re: regular expression to detect dos filenames <leave.alone@btinternet.com>
Re: regular expression to detect dos filenames <tim@burlyhost.com>
Re: regular expression to detect dos filenames (fidokomik\)
Restarting a Program mid stream <pgodfrin@gmail.com>
Re: Restarting a Program mid stream <tim@burlyhost.com>
Re: Restarting a Program mid stream <jurgenex@hotmail.com>
Re: Restarting a Program mid stream <uri@stemsystems.com>
using print<<`EOC` <pgodfrin@gmail.com>
Re: using print<<`EOC` <tim@burlyhost.com>
Re: using print<<`EOC` <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 21 Nov 2008 18:35:57 +0100
From: Dirk Heinrichs <dirk.heinrichs@online.de>
Subject: Re: Connect to multiple unix servers
Message-Id: <gg6rht$g1u$1@online.de>
darkknight56 wrote:
> Sorry but I'm running a recent Activestate release of perl from a
> Windows server to the various unix servers.
Either use putty in a simple for loop, or check wether dsh is available under cygwin.
Bye...
Dirk
------------------------------
Date: Sat, 22 Nov 2008 02:02:45 +0100
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Dose package name has to be the same as the filename? (for OO)
Message-Id: <hamei4dj42l96tpo12dt1e4ne6q6dstl3b@4ax.com>
Peng Yu wrote:
>In this webpage, the package name is the same as the filename.
>
>http://www.tutorialspoint.com/perl/perl_oo_perl.htm
>
>I checked some perl modules, it seems that the filename is always the
>same as the package name. I'm wondering if this is required. Or the
>package name and the filename can be different?
It's not absolutely required, but import() won't work if they're
different. OO doesn't rely on import.
You can have multiple packages per file, and they may all be different
from the module file name.
So no, it's not required, but it's a habit likely to reduce the chance
of name clashes: if package name and file name are the same, and you kow
your file name is unique, then the package name will be unique too. Heh.
Besides, why wouldn't you pick the same name? You obviously must be
somewhat happy with it, or you wouldn't pick it for either. So giving
them both the same name doesn't seem so bad.
--
Bart.
------------------------------
Date: Fri, 21 Nov 2008 18:33:33 +0100
From: Marten Lehmann <lehmannmapson@cnm.de>
Subject: moving/renaming directory between NFS mounts
Message-Id: <6oo9ndF4kkivU1@mid.individual.net>
Hi,
I want to move a complete directory by perl from one NFS mount to
another. At the linux shell, I would simple enter
mv source target/
But in perl this doesn't work, neither with rename nor with File::Copys
move. I know that internally it is not a rename but a copy and delete,
so I didn't expect rename() to work. But I don't want to run through the
whole directory tree. I want to keep it as simply as the linux shells mv
command, but I only want to use system("mv source target/") if there is
no other way. I couldn't find a helpful modul. Any ideas?
Kind regards
Marten
------------------------------
Date: Sat, 22 Nov 2008 05:42:23 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Nov 22 2008
Message-Id: <KApzun.11yn@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Amazon-SQS-Simple-1.02
http://search.cpan.org/~swhitaker/Amazon-SQS-Simple-1.02/
OO API for accessing the Amazon Simple Queue Service
----
Amazon-SQS-Simple-1.03
http://search.cpan.org/~swhitaker/Amazon-SQS-Simple-1.03/
OO API for accessing the Amazon Simple Queue Service
----
AnyEvent-4.33
http://search.cpan.org/~mlehmann/AnyEvent-4.33/
provide framework for multiple event loops
----
AnyEvent-HTTP-1.11
http://search.cpan.org/~mlehmann/AnyEvent-HTTP-1.11/
simple but non-blocking HTTP/HTTPS client
----
Apache-SWIT-0.41
http://search.cpan.org/~bosu/Apache-SWIT-0.41/
mod_perl based application server with integrated testing.
----
Apache2-ASP-2.00_26
http://search.cpan.org/~johnd/Apache2-ASP-2.00_26/
ASP for Perl, reloaded.
----
Apache2-WURFLFilter-0.2
http://search.cpan.org/~ifuschini/Apache2-WURFLFilter-0.2/
is Apache Mobile Filter that permit to redirect the device to the aproprate URL
----
Apache2-WURFLFilter-0.3
http://search.cpan.org/~ifuschini/Apache2-WURFLFilter-0.3/
is Apache Mobile Filter that permit to redirect the device to the correct mobile content you have definded
----
App-CamelPKI-0.07
http://search.cpan.org/~grm/App-CamelPKI-0.07/
A multi-purpose PKI.
----
App-ZofCMS-Plugin-FormMailer-0.0201
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-FormMailer-0.0201/
plugin for e-mailing forms
----
Bundle-OpenXPKI-0.06
http://search.cpan.org/~alech/Bundle-OpenXPKI-0.06/
A bundle to install modules required for OpenXPKI
----
CGI-Application-Plugin-ErrorPage-1.20
http://search.cpan.org/~markstos/CGI-Application-Plugin-ErrorPage-1.20/
A simple error page plugin for CGI::Application
----
CGI-Application-Plugin-Flash-0.02
http://search.cpan.org/~bcbailey/CGI-Application-Plugin-Flash-0.02/
Session Flash plugin for CGI::Application
----
CGI-Carp-DebugScreen-0.15
http://search.cpan.org/~ishigaki/CGI-Carp-DebugScreen-0.15/
provides a decent debug screen for Web applications
----
CGI-Session-Flash-0.02
http://search.cpan.org/~bcbailey/CGI-Session-Flash-0.02/
Session Flash Object
----
Class-XSAccessor-0.08
http://search.cpan.org/~smueller/Class-XSAccessor-0.08/
Generate fast XS accessors without runtime compilation
----
Class-XSAccessor-Array-0.06
http://search.cpan.org/~smueller/Class-XSAccessor-Array-0.06/
----
Config-Augeas-0.304
http://search.cpan.org/~ddumont/Config-Augeas-0.304/
Edit configuration files through Augeas C library
----
DBD-PgLite-0.11
http://search.cpan.org/~gruber/DBD-PgLite-0.11/
PostgreSQL emulation mode for SQLite
----
DBIx-Perlish-0.49
http://search.cpan.org/~gruber/DBIx-Perlish-0.49/
a perlish interface to SQL databases
----
DBIx-Tree-MaterializedPath-v0.02
http://search.cpan.org/~larryl/DBIx-Tree-MaterializedPath-v0.02/
fast DBI queries and updates on "materialized path" trees
----
DayDayUp-0.04
http://search.cpan.org/~fayland/DayDayUp-0.04/
good good study, day day up
----
Devel-CoreDump-0.01
http://search.cpan.org/~flora/Devel-CoreDump-0.01/
create core dumps of the running perl interpreter, without terminating
----
Devel-DLMProf-0.04
http://search.cpan.org/~kitano/Devel-DLMProf-0.04/
----
Devel-PerlySense-0.0160
http://search.cpan.org/~johanl/Devel-PerlySense-0.0160/
Perl IDE backend with Emacs frontend
----
Devel-PerlySense-0.0161
http://search.cpan.org/~johanl/Devel-PerlySense-0.0161/
Perl IDE backend with Emacs frontend
----
Devel-PerlySense-0.0162
http://search.cpan.org/~johanl/Devel-PerlySense-0.0162/
Perl IDE backend with Emacs frontend
----
EBook-Tools-0.3.3
http://search.cpan.org/~azed/EBook-Tools-0.3.3/
An object class for the manipulation and generation of E-books based on IDPF standards
----
Fey-0.17
http://search.cpan.org/~drolsky/Fey-0.17/
Better SQL Generation Through Perl
----
Git-PurePerl-0.34
http://search.cpan.org/~lbrocard/Git-PurePerl-0.34/
A Pure Perl interface to Git repositories
----
IO-Stream-1.0.3
http://search.cpan.org/~powerman/IO-Stream-1.0.3/
ease non-blocking I/O streams based on EV
----
IPC-SRLock-0.1.82
http://search.cpan.org/~pjfl/IPC-SRLock-0.1.82/
Set/reset locking semantics to single thread processes
----
Inline-0.45
http://search.cpan.org/~sisyphus/Inline-0.45/
Write Perl subroutines in other programming languages.
----
Lingua-Jspell-1.57
http://search.cpan.org/~ambs/Lingua-Jspell-1.57/
Perl interface to the Jspell morphological analyser.
----
Lingua-Translate-Google-0.02
http://search.cpan.org/~dylan/Lingua-Translate-Google-0.02/
0.02 - Translation back-end for Google's beta translation service.
----
Log-Dispatch-Colorful-0.01
http://search.cpan.org/~taro/Log-Dispatch-Colorful-0.01/
Object for logging to screen .
----
Mail-SPF-Iterator-0.06
http://search.cpan.org/~sullr/Mail-SPF-Iterator-0.06/
iterative SPF lookup
----
Math-MPC-0.51
http://search.cpan.org/~sisyphus/Math-MPC-0.51/
perl interface to the MPC (multi precision complex) library.
----
MultiThread-0.6
http://search.cpan.org/~dspadea/MultiThread-0.6/
----
MultiThread-0.7
http://search.cpan.org/~dspadea/MultiThread-0.7/
----
Nagios-Plugin-0.28
http://search.cpan.org/~tonvoon/Nagios-Plugin-0.28/
A family of perl modules to streamline writing Nagios plugins
----
Net-IMAP-Client-0.6
http://search.cpan.org/~mishoo/Net-IMAP-Client-0.6/
Not so simple IMAP client library
----
Net-Soma-0.01
http://search.cpan.org/~jef/Net-Soma-0.01/
Perl client interface to SOMA iWireless platform
----
Net-Soma-0.02
http://search.cpan.org/~jef/Net-Soma-0.02/
Perl client interface to SOMA iWireless platform
----
OpenResty-0.5.1
http://search.cpan.org/~agent/OpenResty-0.5.1/
General-purpose web service platform for web applications
----
Parse-Eyapp-1.129
http://search.cpan.org/~casiano/Parse-Eyapp-1.129/
Extensions for Parse::Yapp
----
Parse-Gnaw-0.24
http://search.cpan.org/~gslondon/Parse-Gnaw-0.24/
Define a grammar and create a parser by calling nothing but perl subroutines.
----
Pod-Advent-0.06
http://search.cpan.org/~davidrw/Pod-Advent-0.06/
POD Formatter for The Perl Advent Calendar
----
Pod-Simple-Wiki-Wikka-0.09
http://search.cpan.org/~dstaal/Pod-Simple-Wiki-Wikka-0.09/
A class for creating Pod to Wikka wiki filters.
----
PowerDNS-Backend-MySQL-0.09
http://search.cpan.org/~augie/PowerDNS-Backend-MySQL-0.09/
Provides an interface to manipulate PowerDNS data in the MySQL Backend.
----
Storable-AMF-0.19
http://search.cpan.org/~grian/Storable-AMF-0.19/
Perl extension for serialize/deserialize AMF0/AMF3 data
----
Test-WWW-Mechanize-1.22
http://search.cpan.org/~petdance/Test-WWW-Mechanize-1.22/
Testing-specific WWW::Mechanize subclass
----
Text-FindIndent-0.03
http://search.cpan.org/~smueller/Text-FindIndent-0.03/
Heuristically determine the indent style
----
W3C-LogValidator-1.4
http://search.cpan.org/~oliviert/W3C-LogValidator-1.4/
The W3C Log Validator - Quality-focused Web Server log processing engine
----
XML-XSLT-0.50_2
http://search.cpan.org/~jstowe/XML-XSLT-0.50_2/
A perl module for processing XSLT
----
Xacobeo-0.03_03
http://search.cpan.org/~potyl/Xacobeo-0.03_03/
XPath (XML Path Language) visualizer.
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Fri, 21 Nov 2008 09:53:42 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: post increment or pre increment?
Message-Id: <GACVk.1898$EA3.932@newsfe20.iad>
Peng Yu wrote:
> Hi,
>
> I learned in C++, that it is better to use pre increment rather than
> post increment. I'm wondering which one is better to use in perl, for
> example, in a for loop.
>
> for(my $i = 0; $i <10; ++ $i)
>
> or
>
> for(my $i = 0; $i <10; $i ++)
>
> Which one is better?
>
> Thanks,
> Peng
Which is better, depends on your needs. Do you want to pre or post
increment in your loop? You don't have to pre/post increment, when you
can use other functions to loop x number of times either.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Fri, 21 Nov 2008 17:13:11 GMT
From: dan <leave.alone@btinternet.com>
Subject: regular expression to detect dos filenames
Message-Id: <H_BVk.222$mr6.81@newsfe12.ams2>
I have seen this as an example of how to detect dos filenames:
$string =~ m/^\S{1,8}\.\S{0,3}/;
Unfortunately it doesn't work:
my $string = 'filename.notdos';
print 'is dos' if $string =~ m/^\S{1,8}\.\S{0,3}/;
print "\n";
$string = 'filenameplus.notdos';
print 'is not dos' unless $string =~ m/^\S{1,8}\.\S{0,3}/;
print "\n";
Outputs
is dos
is not dos
Whats going on here?
------------------------------
Date: Fri, 21 Nov 2008 18:19:11 +0100
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: regular expression to detect dos filenames
Message-Id: <87fxllgfow.fsf@zeekat.nl>
dan <leave.alone@btinternet.com> writes:
> I have seen this as an example of how to detect dos filenames:
>
> $string =~ m/^\S{1,8}\.\S{0,3}/;
>
> Unfortunately it doesn't work:
>
> my $string = 'filename.notdos';
That regex is not anchored at the end. Basically it matches any string
that *starts* with "a dos filename". You want something like
$string =~ m/^\S{1,8}\.\S{0,3}$/;
Also note that your regex allows dots "." in all places including the
extension, and disallows spaces. I'm not quite sure if that's correct
wrt to DOS/FAT16 filenames OR your intended use.
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Fri, 21 Nov 2008 17:49:09 GMT
From: dan <leave.alone@btinternet.com>
Subject: Re: regular expression to detect dos filenames
Message-Id: <pwCVk.1522$rz5.655@newsfe16.ams2>
On Fri, 21 Nov 2008 18:19:11 +0100, Joost Diepenmaat wrote:
> dan <leave.alone@btinternet.com> writes:
>
>> I have seen this as an example of how to detect dos filenames:
>>
>> $string =~ m/^\S{1,8}\.\S{0,3}/;
>>
>> Unfortunately it doesn't work:
>>
>> my $string = 'filename.notdos';
>
> That regex is not anchored at the end. Basically it matches any string
> that *starts* with "a dos filename". You want something like
>
> $string =~ m/^\S{1,8}\.\S{0,3}$/;
>
> Also note that your regex allows dots "." in all places including the
> extension, and disallows spaces. I'm not quite sure if that's correct
> wrt to DOS/FAT16 filenames OR your intended use.
Thanks!
------------------------------
Date: Fri, 21 Nov 2008 09:59:01 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: regular expression to detect dos filenames
Message-Id: <GFCVk.567$wt1.496@newsfe05.iad>
dan wrote:
> I have seen this as an example of how to detect dos filenames:
>
> $string =~ m/^\S{1,8}\.\S{0,3}/;
>
> Unfortunately it doesn't work:
>
> my $string = 'filename.notdos';
>
> print 'is dos' if $string =~ m/^\S{1,8}\.\S{0,3}/;
> print "\n";
The above starts the string ^, but doesn't end on \S{0,3}, so it
matches.  You meant if $string =~ m/^\S{1,8}\.\S{0,3}$/;
Â
> $string = 'filenameplus.notdos';
>
> print 'is not dos' unless $string =~ m/^\S{1,8}\.\S{0,3}/;
> print "\n";
Again, same problem, you need to end the regex with \S{0,3}$/
I'm curious, do files on your system potentially end with ^\S{1,8}\
\S{0}?  I.e., filename.  ?  If not, or if they might not be in the
format of filename.extension, you should account for that I.e.,
filename, filename., and filename.ext, are all different.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Sat, 22 Nov 2008 03:12:29 +0100
From: "Petr Vileta \(fidokomik\)" <stoupa@practisoft.cz>
Subject: Re: regular expression to detect dos filenames
Message-Id: <gg7pro$1rhe$1@ns.felk.cvut.cz>
dan wrote:
> I have seen this as an example of how to detect dos filenames:
>
> $string =~ m/^\S{1,8}\.\S{0,3}/;
>
> Unfortunately it doesn't work:
>
> my $string = 'filename.notdos';
>
> print 'is dos' if $string =~ m/^\S{1,8}\.\S{0,3}/;
> print "\n";
>
> $string = 'filenameplus.notdos';
>
> print 'is not dos' unless $string =~ m/^\S{1,8}\.\S{0,3}/;
> print "\n";
>
> Outputs
>
> is dos
> is not dos
>
> Whats going on here?
Maybe this is the right regexp:
if($string =~
m/^[^\\\*\?\<\>\/\:\"\|\.]{0,8}(\.[^\\\*\?\<\>\/\:\"\|\.]{1,3})*$/)
{
print "is DOS\n";
}
else
{
print "is not DOS\n";
}
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail.
Send me your mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Fri, 21 Nov 2008 14:57:37 -0800 (PST)
From: pgodfrin <pgodfrin@gmail.com>
Subject: Restarting a Program mid stream
Message-Id: <1b90c2fd-782b-4450-b349-d563c34fd370@r15g2000prh.googlegroups.com>
Greetings,
I have a perl program that has multiple steps. I'd like to be able to
restart it at any step. This works:
#!/bin/perl
goto $ARGV[0]; # forgive me
S1:
{
print "S1\n";
exit;
}
S2:
{
print "S2\n";
exit;
}
However, I was wondering if there is any programmatic access to the
name of the block. That way I could print the name of the block
instead of hard-coding an arbitrary value (print "S1\n")
pg
------------------------------
Date: Fri, 21 Nov 2008 16:08:40 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Restarting a Program mid stream
Message-Id: <c4IVk.30241$8T2.8239@newsfe07.iad>
pgodfrin wrote:
> Greetings,
> I have a perl program that has multiple steps. I'd like to be able to
> restart it at any step. This works:
>
> #!/bin/perl
> goto $ARGV[0]; # forgive me
> S1:
> {
> print "S1\n";
> exit;
> }
> S2:
> {
> print "S2\n";
> exit;
> }
>
> However, I was wondering if there is any programmatic access to the
> name of the block. That way I could print the name of the block
> instead of hard-coding an arbitrary value (print "S1\n")
> pg
The name of the block is what you're printing, so you could just use
print $ARGV[0] instead, unless I misunderstood what you were asking?
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Fri, 21 Nov 2008 16:51:21 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Restarting a Program mid stream
Message-Id: <polei4h3595un3uahskv75ij4eit6vl05q@4ax.com>
pgodfrin <pgodfrin@gmail.com> wrote:
>I have a perl program that has multiple steps. I'd like to be able to
>restart it at any step.
To restart a program again just exec() itself.
That will replace the existing instance with a fresh instance.
jue
------------------------------
Date: Sat, 22 Nov 2008 00:20:18 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Restarting a Program mid stream
Message-Id: <x74p20balp.fsf@mail.sysarch.com>
>>>>> "p" == pgodfrin <pgodfrin@gmail.com> writes:
p> Greetings,
p> I have a perl program that has multiple steps. I'd like to be able to
p> restart it at any step. This works:
p> #!/bin/perl
p> goto $ARGV[0]; # forgive me
but never do that again!
p> S1:
p> {
p> print "S1\n";
p> exit;
p> }
p> S2:
p> {
p> print "S2\n";
p> exit;
p> }
p> However, I was wondering if there is any programmatic access to the
p> name of the block. That way I could print the name of the block
p> instead of hard-coding an arbitrary value (print "S1\n")
p> pg
the blocks could be code references instead and you can make a dispatch
table to run any given step from the command line. but i sense you want
something that will track where you are and restart the process there
the next time it is run.
you need to do several things but nothing too hard.
you need to save in a file (or a db) a marker for when you finish any
given step and that is the name (label/dispatch table key) of the next
step.
then when you start the program it reads in that saved step name and
jumps to it. the problems now are coding series of steps with each one
knowing the name of the next one. this is easy for a handful of steps
but it gets massively painful and annoying as it grows in size and
complexity. it is a basic statemachine and they are not meant to be
directly coded when big.
so you will have to invest in something else. possible there are modules
that can do this too.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 21 Nov 2008 15:40:47 -0800 (PST)
From: pgodfrin <pgodfrin@gmail.com>
Subject: using print<<`EOC`
Message-Id: <50e94253-6ba7-4dbe-bc27-039f7717c4e2@a29g2000pra.googlegroups.com>
Greetings,
How does Perl identify which shell to use (sh, vs ksh vs csh, etc)
for backticks in a here document?
pg
------------------------------
Date: Fri, 21 Nov 2008 16:03:29 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: using print<<`EOC`
Message-Id: <l%HVk.30240$8T2.26702@newsfe07.iad>
pgodfrin wrote:
> Greetings,
> How does Perl identify which shell to use (sh, vs ksh vs csh, etc)
> for backticks in a here document?
> pg
What environment settings is it running in?
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Fri, 21 Nov 2008 16:55:50 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: using print<<`EOC`
Message-Id: <l2mei45p7jp6l90ig9ha1fsrkmupsd2elu@4ax.com>
pgodfrin <pgodfrin@gmail.com> wrote:
>How does Perl identify which shell to use (sh, vs ksh vs csh, etc)
>for backticks in a here document?
From 'perldoc perlop', section 'Quote and quote-like operators',
subsection 'qx':
qx/STRING/
`STRING`
A string which is (possibly) interpolated and then executed
as a
system command with "/bin/sh" or its equivalent. [...]
jue
------------------------------
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 V11 Issue 1997
***************************************
