ng.perl.misc. At least,
there are many such people posting there who I have never seen posting
here.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://le
ot;\n";
I don't see any tabs there. Try this:
print "$pid\t$user\t$proc\n";
> }
>}
It is better design to have a subroutine that returns the
values you want than to print them so close to having
figured them out. One day you may want to do something
other tha
27;t be used to accomplish it.
>[EMAIL PROTECTED] (Peter Scott)
>Take a look at what I wrote before:
> --
>Nowhere do you use the contents of @ARGV. In-place edit only works
>when you use the diamond operator (<>) for I/O, and you haven't.
>So, having defined $^I and se
se diagnostics;
>>use warnings;
>
>Good!
>
>>my stps="/usr/local/log/scratchtps";
>>
>> open (TP, ">$stps") || die "could not open file:$!";
>>open (TP2, ">$irmt ") || die "could not open f
t only works
when you use the diamond operator (<>) for I/O, and you haven't.
So, having defined $^I and set @ARGV, you then need a loop:
while (<>) {
# Do something with $_
# print something to default filehandle
}
Whatever you print to the default filehandle inside that loop will
go to the new file.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
"cron" is a Unix utility for running commands in a scheduled
manner. You configure the "job" for cron to run it every hour. This
means that you never have to worry about the job running regularly
because cron manages it.
Scott Nipp
Phone: (214) 858-1289
E-mail: [
27; => 'AGctgTGTTT',
> '3 NO MOTIF' => 'TCCGTGCGCT',
> '2 caa' => 'GAAGcaaGGC'
> };
my %myNEWhash;
$myNEWhash{"1 NO MOTIF"} = delete $myhash{"1 NO MOTIF"};
If you literally mea
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Absolut Newbie) writes:
[snip]
>how can i generate 10 unique (non repeating) numbers from a range to put in
>the array ?
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&selm=86hds1fa6n.fsf%40blue.stonehenge.c
quot;\n";'
Global symbol "$i_" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Perl.Org) writes:
>On 8 Jul 2004 13:41:28 -0000, Peter Scott wrote
>> Also, look at the RaiseError property of DBI connections. I gave up
>> referring to DBI::errstr some years ago.
>
>Looks good, except I think I no
to put braces in like that except when necessary to
isolate a variable name in interpolation.
Also, look at the RaiseError property of DBI connections. I gave up
referring to DBI::errstr some years ago.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
t;.($self->nameservers)[0]."] did not give answers";
I suspect you had trouble reaching the root nameserver used in
the test.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
uggest for parsing email? There are a few of them
>out there, and I really don't have the time to try each one out until I find
>the one I like the best. :)
Check out Email::Simple. Should be quite, er, simple.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
dles are created anew, not duped. A test shows it:
sh-2.05a$ cat bar
cat: bar: No such file or directory
sh-2.05a$ perl -le 'print "STDOUT"; $x=`ls foo bar 2>&1`; warn "STDERR"; print $x'
>foo 2>baz
sh-2.05a$ cat foo
STDOUT
ls: bar: No such file or dir
; {
'increment' => [
'1',
'2',
'3'
]
I am new to using Perl and found this module out at CPAN to read gzip'ped
files, but I have no idea how to use it. Can someone provide a couple of
examples to get me started? TIA.
-Damian
e
> Exception.pm module but is there a standard in the real world for
> handling exceptions? If I was assigned to modify some existing Perl
> code, what type of x-handling should I expect to see?
>
> Thanks, Scott
Thank you for all your responses. I did a little research and found an
so easily.
Try Parallel::ForkManager.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
instead. See
http://groups.google.com/groups?selm=200406061505.17786.peter%40adpm.de
But in this case, if you're already sure it's an object, there's
no problem.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL
ling
exceptions? If I was assigned to modify some existing Perl code, what type
of x-handling should I expect to see?
Thanks, Scott
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
you already sent the mail by calling the sendmail() function.
I think you are confusing it with Mail::Send, which IMHO is a
better module anyway.
>foreach $_ (@ftapes) {
>print $_;
>#`evmlabel -l st_9840_acs_0 -t 9840S -b$_`
>}
>close (OUT);
>}
>My goal is to send an email if
subtracted from that, I get -16.23.
perldoc -q decimals
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
= "good"
>> $r = qr/^[god]+$/
>>
>>
>> then $r would match $word. Can you think of a good work around ?
>
>Oh... you want one of each letter only, is that it? Oh boy...
Nothing in the original request suggests this requirement.
There's no reason words
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Manish U) writes:
>Hi,
>
>Can any one give me the url where i can get a free version of perl2exe.
Consider this instead:
http://search.cpan.org/~autrijus/PAR-0.80/lib/PAR.pm
--
Peter Scott
http://www.perldebugged.com/
*
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Christian Stalp) writes:
>Hello, I allready installed gcc but the Makefile calls the HPUX-cc compiler.
>(CC = cc )
>How can I tell the system to use the gcc instead of the cc?
perl Makefile.PL CC=/usr/local/bin/gcc
--
P
$HOME directory, isn't there a
>command-line option to force that, or do I have to manually
>change the Makefile?
You just set PREFIX when making the Makefile:
perl Makefile.PL PREFIX=/home/me/perl_modules
Best way to get there:
perl -MCPAN -e shell
CPAN>
n variable.
This problem can usually be solved by making the inner subroutine
anonymous, using the "sub {}" syntax. When inner anonymous subs
that reference variables in outer subroutines are called or refer-
enced, they are automatically rebound to the current values of such
variables.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Jenda Krynicky) writes:
>From: [EMAIL PROTECTED] (Peter Scott)
>> What are you trying to do that Net::SMTP won't do for you?
>> Or Mail::Sender or Mail::Sender, for that matter?
>
>Looks you really like Mail::Sen
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Roman Baeriswyl) writes:
>Hey Guys
>
>I'm trying to read an answer from an SMTP server via socket.
What are you trying to do that Net::SMTP won't do for you?
Or Mail::Sender or Mail::Sender, for that mat
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] writes:
>[EMAIL PROTECTED] (Peter Scott) writes:
>
>> In article <[EMAIL PROTECTED]>,
>> [EMAIL PROTECTED] writes:
>>>Before starting to write my script designed to make filename changing
>>>
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] writes:
>Before starting to write my script designed to make filename changing
>easier I'd like to ask how to create an editable command line inside a
>perl script?
[snip]
Term::ReadLine
--
Peter Scott
http://www.perld
t;use A"
statement in B won't help. Solution: hoist the subroutine
definitions that B needs from A up above the "use B" statement,
or predeclare them with stubs.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
d use localtime each time but hear me out...
>
>
>my $now = localtime;
>my $job = $icron->job('Now',sub { $now = localtime; }, 1);
>
>print "$now\n"; # Sat Apr 24 00:57:03 2004
>sleep(3); # or your long running code here ...
>print "$now\n";
I retrieve the client IP after or from the "$connect =
>$listen_socket->accept();" statement? I've seen it done with other connect
>and bind methods.
$connect->peerhost;
perldoc IO::Socket for this and other methods.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *
How can I write a regular expression to keep the part of a string that's
between a pair of square braces? Here's a sample line:
Updating Wellbore Set Keys: [wlbr_id = 1234567890, data_provider_code =
MTBL, welltype = OIL]
Thanks in advance for your help!
Scott
Scott E. Robinson
SWAT
explained further in perldiag. Or you can put "use diagnostics" in your
program to save you the trouble of looking them up.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
you of being off-topic. A 5-second
search gave me the newsgroup comp.unix.shell. I highly recommend
Google for such discoveries, it is worth knowing how to use it.
So my idea is to ask in comp.unix.shell.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
er to work with
when I don't need to specify particular versions of
modules, which is rare anyway.
I usually split the modules between two bundles, one
of modules whose installations ask questions, and one
which doesn't. Then I can run the first one, get the
questions out of the way, and
= $_;
>}
Same problem as the last suggestion.
sub test {
my $arg = (@_ ? shift : $_);
}
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
sion;
people who have just started learning Perl should not be
led to think that so simple a matter as variable declaration
should be so fraught with complexity and contention. I
suggest you take your article to comp.lang.perl.misc and
ask whether people there think it is appropriate
sh @ARGV, $File::Find::name }
}
Yes, you can do it without either populating the whole array
before processing any of the files, or without reading the
whole contents of each file in at once; I just wanted to
keep this as simple as possible.
--
Peter Scott
http://www.perldebugged.com/
*** NEW **
perl5db.pl). This is
just as well, the debugger is a sandbox.
The same goes for use warnings, but if you use the -w
or -W flags instead, they are non-lexical and will
extend to the debugger. Try the p command on an
undefined value some time with -w enabled and you'll
see a quite verbos
"perl -d" would not work me
>very well? Am I right?
ptkdb supports remote debugging hooks that will do
what you want.
Perl programs intended to run behind a web server
should be developed so that they can be tested
from the command line, so you don't have to ask for
this help in t
mill','_blank'),
"Source Mill: ",
popup_menu('millid', [EMAIL PROTECTED], '', \%SrcIDs),p,
...
So, you see I want to link @Sources with the keys of %SrcIDs, but what I
want is to sort the hash alphabetically by the values of %SrcIDs. Please
rpolated, which
>I don't want.
Just backslash it:
printf FILE "\e%-12345X [EMAIL PROTECTED] JOB NAME = $ARGV[1] \n";
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http://www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Kevin Old) writes:
>On Tue, 2004-02-24 at 11:19, Peter Scott wrote:
>> I haven't used these modules, but they look like they'll do the
>> job for you:
>>
>> http://search.cpan.org/~mfrankl/HT
.org/~mfrankl/HTML-HTMLDoc-0.07/lib/HTML/HTMLDoc.pm
http://search.cpan.org/~mfrankl/HTML-HTMLDoc-0.07/lib/HTML/HTMLDoc/PDF.pm
Just fetch the HTML using LWP::Simple or similar and then those modules
should do the rest.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
-
it. I've not used
a goto LABEL construct since I was writing BASIC programs
20 years ago (unless you count assembler, which you shouldn't).
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional comma
Great job, Rob! Thanks for the good code! Quite a timesaver.
Scott
Scott E. Robinson
SWAT Team
Data Mgt Practices & Operations (DMPO)
RR-690 -- 281-654-5169
EMB-2813N -- 713-656-3629
Safety is never an accident
- Forwarded by Scott E Robinson/U-Houston/ExxonMobil on 02/19/04 09:2
thout the
defined() test that line would be erroneously skipped. <> returns
undef when there is no more input, hence that is what we must test for.
And since we need to do that so often, Perl adds the shortcuts so we
can type just:
while (<>)
to get what we want.
--
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Mallik) writes:
>Dear Perl Gurus,
>
>What is the difference between Use and Require.
use Foo;
is equivalent to:
BEGIN {
require Foo;
Foo->import;
}
--
t.
>
>Please suggest any idea/code available.
http://search.cpan.org
Mail::Webmail::Yahoo
WWW::Mechanize
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAI
you can add headers explicitly, although it is rarely necessary.
The documentation for HTTP::Request says how. What header is it you
want to add?
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-ma
\*MESSAGE);
What's much easier than learning what the heck a glob ref is, though,
is using a lexical filehandle:
open my $message, $datafile or die...
$page = CGI->new($message);
which will work on any Perl from 5.6.0 on.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
at my CPAN
>installation is looking for is down and I can't figure out how to change it.
perl -MCPAN -e shell
o conf urllist push http://new.mirror
o conf commit
perldoc CPAN for more
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscri
Ok. Here's my situation. I am modifying a Perl script that was created
some time ago and am learning Perl on kind of a "trial by fire" basis
(with a couple of good books).
The problem was first brought to my attention that we still had old log
files greater than 60 old. The gziplog Perl scri
interactive way of doing this.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
presence of a set 8th bit doesn't rule out ASCII.
I suggest you do some tests on samples of the kinds of files you'll
be dealing with and print out the percentage of characters they
contain that has the 8th bit set, and look at the ASCII vs EBCDIC
ones. Hopefully a clear pattern
ates (apparently shifted if necessary to
avoid dealing with wraparound).
I was miffed to find that the data has not been updated in over 3 years
and does not include Victoria.pm, which I started in that period :-(
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
At 11:02 AM 01/09/2004, Scott Taylor wrote:
At 10:28 AM 01/09/2004, Wiggins d Anconia wrote:
http://www.ImageMagick.org/www/perl.html
Check the above for an example of how to print an image to a filehandle,
in your case you want the default STDOUT
I've been all over that page, bu
At 10:28 AM 01/09/2004, Wiggins d Anconia wrote:
> Hello all,
>
> I am trying to use Image::Magick to resize a JPEG. This routine works to
> display the full size image from a blob in my Firebird database:
>
> while ( my ($PixData )
> = $sth->fetchrow ) {
> print h
nt header('image/jpeg');
print $PixDisp;
}
I get this:
Image::Magick=ARRAY(0x82fdee8)
instead of an image. Can anyone see my obvious mistake?
Cheers.
Scott.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
the customary trace/inspect tool into
any device that helps you detect or prevent bugs. So I
will take the liberty of saying that it was my intention
to enumerate such devices in the book "Perl Debugged" (see
URL below). Plus, it has cute cartoons :-)
--
Peter Scott
http://
://perl.plover.com/yak/regex/samples/slide065.html
which should be enough to explain it for you.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ill convert it from
a 640 X 480 @ 100% JPEG to 160 x 120 @ 30% JPEG.
Any ideas?
Cheers.
--
Scott
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ing backticks:
sub run_cmd
{
my $cmd = shift;
my $args = shift || '';
my @output = `$cmd $args 2>&1`;
$? < 0 and return "ERROR: problem running $cmd with $args: $!";
[ grep /\S/, map { chomp; $_ } @output ];
}
The only reason I left $cmd and $args separate is
ands for setting breakpoints or doing anything
else you like in a file and execute it whenever you like. Just list
the breakpoints and watchpoints and turn them into the appropriate
commands (a simple script will automate that if you need).
--
Peter Scott
http://www.perldebugged.com/
*** NEW
Make sure you have Crypt::SSLeay installed.
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
nt to be able to
>do something like $ ./distribute.pl --file and have it sent to all
>boxen's ~/distributed/ directory.
Some reason you can't use rsync?
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Very interesting... Running this script it dies at the 800MB
attempt. However, watching this process in top, memory usage is actually
double the amount that is being tested. In top, the last memory amount
prior to it dying is 1400MB.
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL
Nope... No /dev/zero either in 11i.
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:\\ldsa.sbcld.sbc.com
-Original Message-
From: Bakken, Luke [mailto:[EMAIL PROTECTED]
Sent: Thursday, December 04, 2003 1:25 PM
To: NIPP, SCOTT V (SBCSI); [EMAIL
Will this tell me how much memory is used at the point of failure?
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:\\ldsa.sbcld.sbc.com
-Original Message-
From: david [mailto:[EMAIL PROTECTED]
Sent: Thursday, December 04, 2003 1:11 PM
To: [EMAIL
Unfortunately, there is no /dev/random in HP-UX.
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:\\ldsa.sbcld.sbc.com
-Original Message-
From: Bakken, Luke [mailto:[EMAIL PROTECTED]
Sent: Thursday, December 04, 2003 9:36 AM
To: NIPP, SCOTT V (SBCSI
Perl test script to use memory until Perl reaches it's memory
limit. This will help me to know when I have things right so I don't have
to keep going back to the end users and tell them "OK, try it now".
Thanks in advance for any help.
Scott Nipp
Phone: (214) 858-
d: writing past 2GB failed: process limits?
Thanks again.
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:\\ldsa.sbcld.sbc.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
ie => $cookie);
Putting 'em together:
use CGI qw(header cookie);
$cookie = cookie(...);
print header(-cookie => $cookie, -type=>'image/gif');
Search through the CGI.pm documentation for the "..." and take more
questions to beginn
+my $response = $mech->get( $uri, @args);
$response->is_success or die "Can't fetch $uri\n", $response->status_line, "\n";
$mech->is_html or die "$uri returns type \"", $mech->ct, "\", not \"text/html\"\n";
--
Peter Scott
http://www.perldebugged.com/
*** NEW *** http//www.perlmedic.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
n I really have
is if this is indeed the parameter, it is limited to slightly under 4GB and
the user needs approximately 5GB. So, can Perl use 64bit memory, which has
an insanely huge limit so this user can run this job? Any feedback is most
appreciated. Thanks.
Scott Nipp
Phone: (214) 858-1
Lotus Notes adds a header to the top of the note which I *can* cut and
paste to the bottom. It does not do the indentation with '>' characters
that seems to be preferred.
Thanks,
Scott
Scott E. Robinson
SWAT Team
UTC Onsite User Support
RR-690 -- 281-654-5169
EMB-2813N --
- not as a prerequisite for
posters, but as a way to help them out.
(Of course, I'm not one to talk -- my grounding in Computer Science is so
rusty people on this list often don't know I have it...)
(And, sorry for the top-posting. I haven't figured out how to fix that!)
Thanks,
Scot
doing this? What I have currently is a regex that
splits out the entire line, but certain fields have changed so my original
code doesn't work as well.
Thank you very much!
Joshua Scott
==
NOTICE - This communication ma
;;
close(OLD) or die "Can't Close Old: $!";
rename($old,$new);
^D
syntax error at - line 6, near ",>"
- had compilation errors.
That's twice now. I'm disinclined to help since I will doubt that whatever
you post is what's really giving you the problem, because you evidently
don't want to show us the real code.
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
t;;
> flock NEW, 2;
> while () {
[snip]
Why don't you post the actual code since this obviously isn't it...
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Can anyone tell me what the Perl driver for MSAccess is called and how to
use it to read a table?
Thanks,
Scott
Scott E. Robinson
SWAT Team
UTC Onsite User Support
RR-690 -- 281-654-5169
EMB-2813N -- 713-656-3629
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail
You are looking for the TK module for Perl. Perl/TK allows you to
create windows and everything that goes along with them.
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:\\ldsa.sbcld.sbc.com
-Original Message-
From: Ned Cunningham [mailto:[EMAIL
x27;R' command works by storing that information in environment variables.
You could hack it to save the information in a file as well, and look for
that file on startup.
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
ocation/of/header.incl";
>> open (FH, "$file") or die "Cannot open file $file $!";
>> print while();
>> close(FH);
>> --
>
>or simply:
>
>print ;
Reasonable for short files, wastes memory for big ones. This file
opening looks like too much work. I prefer:
{
local @ARGV = "/location/of/header.incl";
print while <>;
}
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Mickalo,
perldoc -f localtime
perldoc -f gmtime
> perl -e 'print scalar localtime (1064616515), "\n"'
Fri Sep 26 18:48:35 2003
Scott
-Original Message-
From: Mike Blezien [mailto:[EMAIL PROTECTED]
Sent: Wednesday, October 01, 2003 10:08 AM
To: [EMAIL PROTECTED
daemon. The
other way I see doing this is to write each section of code as a subroutine
within the daemon program and have that called. Any suggestions on which of
these would be better? More correct? Etc.?
Thanks in advance for the help yet again.
Scott Nipp
Phone: (214) 858-1289
E-mail
eletes the file afterwards. If
there are no files, then the "daemon" simply sleeps for 30 seconds before
looking again. This seems like a very simple way of attacking the issue.
Any ideas fore or against?
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:
vance.
Scott Nipp
Phone: (214) 858-1289
E-mail: [EMAIL PROTECTED]
Web: http:\\ldsa.sbcld.sbc.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
David Wall wrote:
>
>
> --On Saturday, September 06, 2003 7:45 PM -0400 perlwannabe
> <[EMAIL PROTECTED]> wrote:
>
>> OK, I have a new problem. I need to delete an entire line that contains
>> certain text. I have done an extensive search and had no luck finding an
>> adequate answer. Yes, I
Ramprasad A Padmanabhan wrote:
> Nelson Wong wrote:
>> Hi all,
>>
>> I always get three identical copies of a message all the time,
>> therefore, I just wonder if anyone has the same situation as mine!
>>
>> Thanks!
>>
>> BTW, it is a great ML!!! Happy knowledge sharing!
>>
> No, But reading t
As a way of testing its effect on a lot of scripts you have
certainly found an effective way. I would hesitate to put it into
production unless the module was called something like
Foo::Bar::GloballyUnbuffered, or at least its documentation said at the
beginning, "*** WARNING, THIS MODULE SETS $| ***"
This sort of action at a distance is generally considered an unfriendly
interface. I believe in leaving the setting of variables like $| to the
calling program. But if you know what you're doing, have at it.
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
is. Perhaps you could share
what it is you're doing that makes you think you do?
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
[EMAIL PROTECTED] wrote:
> What's the simple Perl command to find the name of the file from
> which the Perl program is being executed? It was recently on this
> newsgroup but I can't find the article now.
>
> Thanks,
>
> Scott
>
> Scott E. Robinso
What's the simple Perl command to find the name of the file from which the
Perl program is being executed? It was recently on this newsgroup but I
can't find the article now.
Thanks,
Scott
Scott E. Robinson
SWAT Team
UTC Onsite User Support
RR-690 -- 281-654-5169
EMB-2813N -- 71
ot;. Note: I may be slightly "what crack
>is he smoking?" on my version numbers - it's been a while.
5.6.0, not 5.004_05.
--
Peter Scott
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
follows in the piece of code that calls the modules that produces the error:
use Date::Calc qw(Add_Delta_Days);
Does anyone have an idea?? And thanks in advance.
___
Scott Burks Systems and Network Administrator
Trust Company of America / Gemisys Financial Services
At 02:41 PM 08/27/2003, Dan Muey wrote:
>
> > use CGI qw(header);
> > use DBI;
> > my $dbh = ...
> > print header('image/jpeg');
> > my($jpegguts) = $dbh->selectrow_array('SELECT jpegguts FROM
> > myimg
> > WHERE id = 35');
> > print $jpegguts;
> >
501 - 600 of 1462 matches
Mail list logo