hy are you allowing a module
work out how many processes to create?
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
On Jun 9, 2004, at 9:57 AM, Randal L. Schwartz wrote:
"Drieux" == Drieux <[EMAIL PROTECTED]> writes:
Drieux> if ( ref($got_back) eq "Foo::Bar")
No no no. Stop using ref(). It means you can't replace it
with a subclass of it.
You want (and I show in my
of
scripts using serveral commonly shared functions.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
;http://www.stonehenge.com/merlyn/PerlJournal/col12.html>, or you can
get it from TPJ now if you're a subscriber. But in there,
I tout Exception::Class as a good solution.
We look forward to the kvetch.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
my ($caller, %arg) = @_;
my $conv = {
x => '/usr/local/apache/htdocs/x',
y => '/usr/local/apache/htdocs/y',
z => '/usr/local/apache/htdocs/z'
};
self; # since the 'new' returns the blessed self...
}
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
it will be simpler"
Whereas there is a lot of stuff that is much closer to
the OS specifics that are easier to write and maintain
in a 'c-code' source that one builds an XS module to
expose to the Perl Coders as the compromise.
cf: perldoc h2xs
So use the correct Swiss Army C
'but which
language should I pick' - unfortunately that
is really only one part of the problem.
As the saying goes - anything can be turned
into a club - the questions then become what
exactly was one planning to beat to a pulp
with it.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTE
s whether
you will find the httpd.conf in say
/etc/httpd/conf/httpd.conf
or not - since reasonable folks do not generally
stuff shell variables into /etc/sysconfig/apache
At which point there is the other odd question
that comes to mind, why? What is it you are
really trying to work out ? Why not
On Apr 23, 2004, at 9:04 PM, WC -Sx- Jones wrote:
[..]
Please, decode this key:
SxEyj/gJs5pXISX11386025
Thank you in advance :)
[..]
My compliments to your wit.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<h
olks, "UN-NATURAL".
First off all coding languages are 'formal languages'
and hence have to be formalizable, this is why they
are by definition 'not natural languages'. So the
question then really is what part of the 'formalization'
are you having problems with
On Apr 21, 2004, at 4:16 AM, Michael C. Davis wrote:
[..]
Thanks for the insights, drieux. While I wish I were
in a position to establish corporate policy, I'm not,
and my objective is merely to satisfy
myself that I have a reasoned, workable approach.
Your feedback helps a lot.
Coming up w
roblem or this or that,
and one check for how they deal with an ambiguously
worded coding problem - hence whether they should
be looking before leaping - and then one catches
their basic issues with actually doing perl code.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
F
cess - it is a bonus.
But you will probably find that spending time on creating
the appropriate code coverage in the t/ and making sure
that the POD is useful are the places where your time is best spent.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
it to use the simple strategy
of being put in
$ENV{HOME}/bin
with a uselib line of
$ENV{HOME}/lib/perl5
then use your installer with the offset
values to install it there.
Haul around one distribution and it will
work for all of your 'user names' on
all of the machines.
ciao
drieux
--
./stdio.plx
past the line
[jeeves: 28:] echo "Hello there\
Happy Happy" | ./stdio.plx
Hello there
Happy Happy
past the line
[jeeves: 29:]
HTH.
yes, your old school tie 'c coding tricks'
are mostly what you fill find most useful...
ciao
drieux
---
--
To unsubscribe, e-mail: [E
f open FD's as info comes back, cf perldoc IO::Select
and then as one needs to 'update' incoming information, one
does that...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
select loop' approach for keeping track of which of
them you are dealing with as they write to you. But you can
get that part spun up after you have your basic translation
table in place.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
decide which CPAN modules you find more useful, since they
will simplify your needing to build your own. Also look
for the 'learn perl references, objects, modules' by R. Schwartz,
it will help get you into module building as well...
HTH.
ciao
drieux
---
--
To unsubscribe, e-mail
ck - and simply rebuilt the code
with the "USE_LARGE_FILES" flag.
HTH.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
to go about this type of problem is discussed at
<http://www.wetware.com/drieux/CS/Proj/DI704/>
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
sub my_do_foo
{
my ($me, $arg, $other) = @_;
$me->doOther($arg) unless $other ;
...
}
but I am fond of 'my $me' and it saves me from
having to type two additional letters...
ciao
drieux
---
--
To unsubscribe, e-mail: [E
#x27;s module. Some people go
completely BONKERS having to crawl up the inheritence chain
of documentation to understand what methods can really be
used on a sub_sub_sub_sub_class... So make sure that your
documentation makes clear where to find all of the other docs...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
make the 'use DBI'
since it would be required IN your module. This is a part of
how/why one likes to encapsulate things into perl modules so
that one can hide the common repeatively repeated redundent parts
without having to keep retyping them over and over and over again
in each new sc
looked at say
perldoc IO::Handle
eg:
$io->opened
Returns true if the object is currently a valid file
descriptor,
false otherwise.
The perldoc IO::File is a subclass of IO::Handle...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
it.
while actually reading it
<http://search.cpan.org/src/JGLICK/SGI-FAM-1.002/lib/SGI/FAM.pm>
you will note that
a. there is no 'new' in the perl code,
b. hence it goes into the AutoLoader, but
gets a response back that the 'new' construct is not foun
On Feb 4, 2004, at 2:36 PM, Johnson, Michael wrote:
CLASSIFICATION: UNCLASSIFIED
Classification: UNCLASSIFIED
I guess a part of the question is at what level.
My general documentation is at:
<http://www.wetware.com/drieux/CS/Proj/TPFH/gen_doc.html>
if you feel at home reading just Perl
flushed...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
code that will deal with that.
But there is the problem with the sigkill, which
is a non-maskable interrupt.
cf
man stty
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.
@(#)kstat.pl 1.3 01/11/09 SMI"
require 5.6.1;
use strict;
use warnings;
vladimir: 60:]
HTH.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
er person noted,
What exactly are you interested in knowing about them?
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
er';
our @EXPORT = 'foo';
sub foo { print "foo!\n" }
package FOO::Bar;
sub foo { my ($me,$arg) = @_; print "have arg: $arg\n"; }
}
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
On Jan 27, 2004, at 6:59 AM, Michael W.Cocke wrote:
This is probably a stupid question, but does anyone know how to force
the output of print to actually PRINT, without forcing me to use a \n?
did you try
$| = 1;
cf perldoc perlvar
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED
t::Telnet::Cisco->new(
Host => $host,
Port => $port,
Dump_Log => "c:/perl/bin/routerdump".$line.".txt",
Input_log => "c:/perl/bin/router".$line.".txt",
Timeout => $secs,
Errmode => \&my_cis
oreilly.com/catalog/lrnperlorm/>
b. see my stock rant
<http://www.wetware.com/drieux/CS/lang/Perl/PM/quick_pm.html>
Since basically I go with the idea that perl modules really
belong as perl modules and then one has a simpler overall
management problem. First because then multiple s
n(@arglist);
sub function {
(\%author_indexlines, \%poem_lines, [EMAIL PROTECTED], $etc)
}
then you re-ref them as
while( my ($k,$v) = each %$author )
{
}
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROT
ot
be located in the dynamic link library oracore9.dll"
[/snip]
Has anyone else seen this? If so, how do I fix this?
[..]
it appears that you have a DLL mismatch problem there.
I think the version of the client side is is not correct
for what the wrapping code is trying to get to.
ciao
drieux
m,
without having to externalize them as a Perl Module.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
riately.
This is one of the reasons that the perldoc advocates
doing the start of a perl module with h2xs
cf perldoc h2xs
so that you can start off at least modestly sanely
my traditional rant on PM's is at
<http://www.wetware.com/drieux/CS/lang/Perl/PM/quick_pm.html>
When I am brewing up
n i try to use this method:
sub object {
my $self = shift;
return $self->{OBJECT} unless @_;
my @list = $self->{OBJECT};
[..]
have we thought about doing that as an array ref?
$self->{OBJECT} = ["xpto1","xpto2"];
...
ue = 10;
my $roll = int(rand($value));
print " \$roll is => $roll = shows side $probability[$roll] \n";
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
woman[1]
And do I need to take down the Satelite Dish first
before trying to wash it Or can I put the whole
house into the dishwasher
You know this with trying to be a Terran is
clearly much tougher than the original briefing said...
ciao
drieux
---
[1] cf: "Deadmen don't wear p
On Jan 23, 2004, at 5:24 PM, wolf blaum wrote:
For Quality purpouses, Ajey Kulkarni 's mail on Saturday 24 January
2004 17:52
may have been monitored or recorded as:
i would like to quickly append a string to a variable.
open NEWFH, "> $filename.new" or die "new procmailrc err";
where $filename
is going off to it's own
Monkey.pm
file where it is a fully externalized perl module...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
x27;, '$param2')");
will do what you want it to do.
IF the Text::process and XML::process functions are things
that you are building out you may want to think about the
idea of doing the perl oo-ish aproach, as
$foo->showMe($line);
will work without requiring the no strict r
On Jan 23, 2004, at 1:36 PM, Eric Walker wrote:
[..]
when I tried to add a package to it, I did some test and its not
reading
the DATA anymore. Is there a certain order?
[..]
How did you put the package in?
ciao
drieux
---
#!/usr/bin/perl -w
use strict;
my $foo
has been addressed, my pet favorite way to include a
package inside of a piece of code is
BEGIN {
package Foo::Bar;
}
That way it will be compiled early and so you can
place it above the __DATA__ section since it is
not 'data'.
c
they
really trying to go with their idea. The only way
that a person can sort that out is by trial and error.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
my ($list1, $list2 ) = @_;
my %hash = map { $_ => 1 } @$list1;
grep { $_ if ( ! exists($hash{$_})) } @$list2;
}
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/&
now the minor question, why assign the %ar? you could
ahve done the while
while( my($key, $value) = each %$allRecs) {
minor nit.
So what exactly were you planning to assign the output
of that map to???
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
uot; foreach (@ARGV);
}
My Compliments on a well done piece.
One of the stock modules most of us use is Getopt::Long
which is really good for the more complex command line optioning.
cf:
perldoc Getopt::Long
An Illustration:
<http://www.wetware.com/drieux/pbl/perlTrick/CommandLine/
do_
ect won't be available?
[..]
did you try something like
sub new
{
my $type = shift;
# call our parent class new to get our $self
my $self = $type->SUPER::new();
.
}
cf:
<http://www.wetware.com/drieux/pbl/perlTrick/OO/Object_in_Object.html>
ciao
drieux
---
x\n|;
print "the Majik Word is: $array[3][3]\n";
HTH...
ciao
drieux
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
}
print qq|\n|;
print qq|x $EW5NS5 x \n|;
print qq|x $Building x\n|;
and the last lines look like:
EW9NS8
EW9NS9
x TEST.gif x
x EW9NS9 x
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
s for
so yes, technically, now that I do 5.8 I should upgrade that
template...
But IF you find that the solution of Foo::Monkey is simpler
to implement as a corporate policy in lieu of Flogging, I
am all the more willing to support your life style choice here...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
eal issue' of "so why did you accept the
code without the Proper POD and internal comments?"
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
in this module to the user???
Is there a difference between the version of perl you are
using on your PC and the 5.8 version on the linux box???
yes, i'm using perl-5.8.1 and he is using 5.8.0
Strange.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EM
x27;and you want this pain why?' problem
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
erl you are
using on your PC and the 5.8 version on the linux box???
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
7;
But then again I have template files that I use to start
the basic perl code that I will actually create and they
have
#!/usr/bin/perl
use strict;
use warnings;
already in them - along with various other things that
I have found useful to have as a basic template for this
or
ld be cooler
if one could start with say
use Foo::Monkey;
and have it contain
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
and work in the sort of
#include "stockHeaderStuff"
way that would turn it into a one liner.
ciao
drieux
---
--
To
uage.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
hand out to the users to use is going to deal with
all of the STDOUT|STDERR as well a always sending
you the email...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ut how the binary executable perl understands
what to do with the bootstrap statement
Other than that, there is really not a lot that you
need to know or understand about the underlying
binary incompatibility between 5.6 and 5.8.X at
the XS level...
ciao
drieux
---
--
To unsubscribe, e-mail: [
foreach (@hold)
{
($type) = split(::);
}
}
so that you have a slightly more 'obvious' solution...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECT
eritence
problem that is worse than a Jeff Foxworthy Joke...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
de things at you,
or worse yet, that it will stop working soon.
When one notices that "deprecated" is used in
documentation about code that means it is time to
go back and refactor any code you had that used
that trick so as to be safer in subsequent releases.
ciao
drieux
---
--
To un
wandering into is the problem
of can one code without an IDE... and in particular without
a GUI that provides colour coded syntax matching...
One way to think about the problem is:
<http://www.wetware.com/drieux/PR/blog2/Code/200401.html#id3156855452>
One of the reasons that folks tend to use v
nents that are in the RPM.
any additional perl modules that have an XS component
will need to be re-built and installed.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ted
region only or in
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
shift;
my @list = qw/a b c d/;
return ($i)? 0: [EMAIL PROTECTED] ;
} # end of some_sub
in this case there is a function call in the while
loop that will return the array reference - but there
is the minor detail that it is NOT
point is that one should cut the code
with the open dread that one will be the person who
will have to come back and refactor the code - so leave
one's self bread crumb trails about why one did which -
it will help
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
do a 5.8.2 upgrade by rpm and then STOMP on it with
your own build...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
our POD knows for 100% certain
that it was their fault - go for it...
Otherwise, accept that in the long run it is simpler
to skip over the prototyping
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ep up to
in terms of learning perl.
Then you become friends with
<http://perl.oreilly.com/>
and
<http://www.perldoc.com/>
and the current version of perldoc stuff
that came with your release of perl.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
actually a stand alone
CD and will get you the current gcc plus all of the expected
supporting libraries.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
going to 'save the day'.
Bob's example does this quite perfectly, thanks again Bob!\
yeah, I can see that now.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
var1;
you don't need to worry about the additional bit of
making sure that it is
my $guts = ($use_second_choice)? $var2: $var1 || '';
Just a thought to think...
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
irstchoice || '';
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
On Jan 7, 2004, at 12:42 PM, Steve Grazzini wrote:
On Jan 7, 2004, at 2:57 PM, drieux wrote:
But simply because there is no controlling
terminal does NOT mean that there is nothing on STDIN.
Were you reading that code backwards?
die usage() if @ARGV == 0 and -t;
# if ((THERE ARE NO
s in STDIN, then one should do that
with the IO::Select approach - since that will tell one
if there are bits on STDIN, even if the process itself
is being run without a controlling terminal.
To help illustrate the point:
<http://www.wetware.com/drieux/pbl/perlTrick/CommandLine/
got_ttyline.plx&
-geometry 80x60+0+0 -e goWork >/dev/null 2>&1 &
###
###exit
###
vladimir: 58:]
this will invoke the 'goWork' code in an xterm...
HTH
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
"test") do_test ;;
*) echo "i do not know how to to $1" ;;
esac
So it's sorta a case of what exactly were you trying
to do with the case like statement???
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
gs,
when, where and how would I really want to be building
my own pipes and/or popen() types of tricks?
well for that there is perldoc perlipc
for everything else, there is ioctl()
8-)
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
er spec, I have updated the code
to show how the IO::Select could be used to gate
for the case that the code was called without
command line input, nor a current connection for STDIN.
<http://www.wetware.com/drieux/pbl/perlTrick/CommandLine/
file_or_stdin.plx>
Note all of the noisy 'print
suming multiple files were
specified on the command line)?
This is gonna sound a bit silly, so laugh along
with me while I play this out.
If you want to know which is the whom For What,
why not simply code it that way?
As an illustration:
<http://www.wetware.com/drieux/pbl/perlTrick/Co
#x27; your data.
The more complex way would be your basic
pipe and exec trick say something like:
<http://www.wetware.com/drieux/pbl/Sys/gen_sym_big_dog.txt>
so you will need to be a bit more clear about whether
it is really run time data - or the fact that both codes
will need a common pe
f the OP is asking about
how does one go about creating a wrapper class
that will allow one to stuff objects into other
objects without actually getting into the whole
multiple class inheritence thing:
cf:
<http://www.wetware.com/drieux/pbl/perlTrick/OO/Object_in_Object.html>
So I too look for
rd Joe Bob was
reviewing movies and not an Object of A...
have you peeked at the
perldoc perltoot
to begin with???
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
On Jan 5, 2004, at 12:32 PM, drieux wrote:
On Jan 5, 2004, at 10:49 AM, Paul Kraus wrote:
Code
#!/usr/bin/perl
use strict;
use warnings;
&dhcpd;
sub dhcpd {
use Text::DHCPparse;
use Net::SCP qw( scp iscp );
my $scp = Net::SCP -> new( 'hylafax', 'pk
}
} # end of funk_moi
which generated for me:
error case: 12345
got back retval 0
is ok: 3
got back retval 1
so there are a couple of places where things
could be breaking down in strange and twisted manners.
What did you see when you ran it in the perl debugger?
ciao
drieu
user
can have an xterm on that box, and which merely
need a client side application...
But you may wish to check with say Hummingbird
<http://www.hummingbird.com/exceedusers/>
and see if any of the specific issues you think
you may be having with putty-exceeds have already
been dealt with
answer.
I personally would start with
perldoc h2xs
since that will help frame out your perl module
in a way that will allow you to install it either
canonically like any other CPAN module -
cf:
<http://www.wetware.com/drieux/CS/Proj/Wetware_ps/
index.html#id3154425254>
for the perl 5.8.1
rm
s/foo/bar/g
You might want to take a look at the illustrative
code provided from O'Reilly with the Mastering
Regular Expressions, where it is trying to resolve
for 'legitimate email address' as being one of the
more complex problems.
ciao
drieux
---
--
To unsubscribe, e-mai
for what it is worth - cf:
<http://www.wetware.com/drieux/PR/blog2/Code/200312.html#id3155628391>
in it I have references to two pieces of demonstration
code that you might want to think about as tactics in
this type of problem.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
nce on a host where there is both perl and ksh.
ciao
drieux
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
On Dec 31, 2003, at 9:04 AM, deb wrote:
Drieux,
Vladimir???
yes, named after vladimir ilyich,
it is my Sparc Box.
:-)
Thanks for the hints. :-)
Personally I would be doing it with something like
<http://www.wetware.com/drieux/CS/Proj/Wetware_ps/>
Which of course first started
eed to be
one or the other...
cf:
<http://www.nntp.perl.org/group/perl.64bit/34>
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
EPLACED/g"
testfile.txt
"." is the "wild card" character, which you want to have
zero or more of, yes?
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
pid is: $pid \n";
###
###
vladimir: 67:]
Andrew's suggestion of guarding the "$2" will also work.
I thought I would base my variant on Luke's somewhat tighter
general solution.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-ma
"." - at least one of
them, and then any number of things that are NOT a "|"
and we then just RIP them out of the pattern space.
HTH.
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
1 - 100 of 1242 matches
Mail list logo