A friend recently gave me a copy of Learning Perl, 2nd Edition, and I was
wondering how out of date it is. Is it useful in order to learn from
(where I work, we use Perl 5.6) or should I save up and buy 3rd Edition?
--Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands
On the path issue:
What I need to do is to verify if a specific directory exists in the
current directory:
if exists($PWD/ThisDir) then
print "WH00T"
End If
Type statement...
TIA
Chris Anderson
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-ma
if I need to pop up a message
box letting the
user know that he/she needs to insert a disk, if it is full, or needs to be
formatted
:)
TIA!
--
Chris Anderson
CTO
C&P Enterprises
http://www.candp-ent.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mai
I need some help with this problem.
I've got a text file datafile with 1 line of data comprised of 30
different numbers delimited with ~s.
I need to open this file, grab this line of data, split it into
individual numbers, perform some simple math (addition) on each
number, and then put the new va
On Feb 4, 10:59 am, shlo...@iglu.org.il (Shlomi Fish) wrote:
> Hi Chris!
>
> Have you visitedhttp://perl-begin.org/yet and read a good introductory book
> or tutorial?
>
> On Thursday 04 Feb 2010 09:27:32 Chris wrote:
>
> > I need some help with this problem.
> > I
On Feb 4, 2:27 am, cacogg...@gmail.com (Chris) wrote:
> I need some help with this problem.
> I've got a text file datafile with 1 line of data comprised of 30
> different numbers delimited with ~s.
>
> I need to open this file, grab this line of data, split it into
> indi
Greetings,
Im writing a simple audio player that is built into an application im
developing, and need to find a control that would be suitable for a "Seek
Bar". Right now im using the Scale widget, and obviously its not what I would
want to use in a production enviroment since it shows all the
Greetings,
I don't know what the proper terminology is for what I want to do, so if
somebody can tell me what it is, that would be great.
Basically I have my core code, then lots of subroutines. Right now I pass data
to subroutines via a "parameter" hash. How can I pass an object that was
crea
Greetings,
Has anybody done anything with perl and quickbooks? I simply need to export
some data into quickbooks format where the user can take that exported
quickbooks data and import it into quickbooks as a check.
I have been looking around, but haven't found anything worthwhile.
Any tips ar
On Tuesday 15 March 2005 09:28 am, Wiggins d'Anconia wrote:
> Chris wrote:
> > Greetings,
> >
> > Has anybody done anything with perl and quickbooks? I simply need to
> > export some data into quickbooks format where the user can take that
> > exported quickbo
On Tuesday 15 March 2005 11:52 am, Siegfried Heintze wrote:
> Chris,
> What are you trying to do? I would like to automate the creation of
> invoices with Quickbooks. Let me know how your project goes.
>
> Do you know how to apply QIF files?
>
> I know that Quick Books
Greetings,
I'm not really sure how to explain it, or if it makes sense, but we provide a
webservice written in perl. We have a number of modules for the software, and
have designed the software to allow "plug-ins". We would like to be able to
offer this "plug-in" feature to developers looking t
> And more than that:
>
> my %sources;
> local *ARGV; local $/;
> @ARGV = ($0, values %INC);
> while (<>) {
> $sources{$ARGV} = $_;
> }
>
> There. The entire source code for the application is now in %sources.
> Every .pm, every require, and the top-level application.
>
> Enjoy.
Thanks for the
Greetings,
We have written a web application utilizing mod_perl and MySQL. We have also
written testing scripts using WWW::Mechanize that simulate a user. These
scripts were first developed as test scripts to ensure actions were performed
correctly, etc.
We would now like to take these scripts
never picks up anything.
Why it's looking for these specific strings, I don't know. because I don't
know clamav"
As I said, being a new subscriber to the list I'm not sure if I can attach
the script or not.
Any assistance will be appreciated.
--
Chris
Registered
epted connection on port 1141, fd 8 Wed
> May 24 18:50:26 2006 -> stream: Html.Phishing.Bank.Sanesecurity.06032100
> FOUND
>
My machine is clean, clamav is detecting the above on incoming spam. The log
snips above are from my clamd.log which the script 'should' be parsing
print "";
print "$rec";
print "";
print $stats{virus}->{$rec} . "$percent". "%";
print "\n";
}
}
print ""
ke the printout of $rec longer, add more of these: '<' to that
> field.
>
>
I thought that was it and I'm sure I'd made changes to that line earlier,
but guess I didn't.
Thanks for the help, lines look much better now.
--
Chris
Registered Linux User 283774 http://counter.li.org
20:24:25 up 25 days, 8:24, 1 user, load average: 0.23, 0.26, 0.22
Mandriva Linux 10.1 Official, kernel 2.6.8.1-12mdk
pgpXSme7Kt2PV.pgp
Description: PGP signature
. "";
print "";
print $stats{year}->{$yr} . "";
print "";
print "\n";
}
}
print "" if $html;
The following code works great to put the text onto the screen:
#***
#*
#* Add the Summary Textbox
#*
#***
my $t = $f->Text(
-width => 65,
-height => 4,
-wrap => 'word
I am getting the HTTP result codes and trying to parse just the left
most 3 characters:
500 Can't connect to www.1k2k3k4j.com:80 (Bad hostname 'www.1k2k3k4j.com')
I only want 500
In VB I could use:
if left($result,3) = "500" Then
Do whatever
Else
Blah Blah Blah
End If
In Perl I
Brett W. McCoy wrote:
> On Thu, 14 Feb 2002, Chris wrote:
>
>
>>if left($result,3) = "500" Then
>>Do whatever
>>Else
>> Blah Blah Blah
>>End If
>>
>>In Perl I want to do:
>>
>>if (left($result), 3) = 500 {
>&
;value = $value\n";
> }
> elsif( $value = 200 ) {
> print "value = $value\n";
> }
>
> will print out
> value = 100
> value = 200
>
> because an assignment to a non zero value is true.
>
> HTH,
> Tanton
> - Original Message -
> From: &qu
er 123test
* DNS1
*1 tester 123.60.115.177
* DNS2
*1 tester 123.60.115.152
*
*
* Hostnames
*
*
* IP
*1 tester 1.2.3.4
* IP
*1 tester 4.3.2.1
* IP
*1 tester 128.32.154.233
*
*
Tester : 128.32.154.233
UserID :
Password:
DNS :
TIA!
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Andrea Holstein wrote:
> In article <[EMAIL PROTECTED]> wrote "Chris" <[EMAIL PROTECTED]>:
>
>
>>>...
>>>
>>Thanks!
>>
>>...
>> my $newresult = $result;
>> print "New Results - $$newresult\n";
&
Jenda Krynicky wrote:
> From: Chris <[EMAIL PROTECTED]>
>
>>I found some code, on the net, on access an INI file...
>>
>
> There are about 10 different modules for INI files on CPAN.
> I bet they'll be better than some code you found
Chris wrote:
> Jenda Krynicky wrote:
>
>> From: Chris <[EMAIL PROTECTED]>
>>
>>> I found some code, on the net, on access an INI file...
>>>
>>
>> There are about 10 different modules for INI files on CPAN.
>> I b
Chris wrote:
> Jenda Krynicky wrote:
>
>> From: Chris <[EMAIL PROTECTED]>
>>
>>> I found some code, on the net, on access an INI file...
>>>
>>
>> There are about 10 different modules for INI files on CPAN.
>> I b
I'm using redhat linux 7.2 and have a question about running perl scripts.
How do you make it so you do not have to type "perl script.pl" every time
you want to run a scripts. I just want to be able to type the name of my
script. Thanks.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additi
Jenda Krynicky wrote:
> From: Chris <[EMAIL PROTECTED]>
>
>>Unfortunatly, any time I ty to PPM anything from CPAN, I get an
>>error... :(
>>
>
> You don't PPM from CPAN. You PPM from ActiveState or
> someone else's
Jenda Krynicky wrote:
> From: Chris <[EMAIL PROTECTED]>
> Subject: Re: Getting the proper info from an INI file...
>
>
>>Jenda Krynicky wrote:
>>
>>>What do you get when you run
>>>
>>> PPM install Confi
#x27;Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),'
How come my if statement is failing?
What mistake did I make?
TIA!
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Nikola Janceski wrote:
> don't use == for string comparison. Use eq in place of the ==
>
> see:
> perldoc perlop
>
>
> -Original Message-
> From: Chris [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, February 21, 2002 10:22 AM
> To: [EMAIL PROTECTED]
>
David Wall wrote:
> Chris <[EMAIL PROTECTED]> wrote on 21 Feb 2002:
>
>
>>if ( substr(@result[$Pcount],0, 12) == 'Packets:' ) {
>>
>
> How about
>
> if ( substr($result[$Pcount],0, 12) eq 'Packets:' ) {
>
>
saved. Leaving it open
#* would allow it to be corrupted, in case of a problem.
#*
#***
close (DUMPFILE);
}
I am reading in a list of IPs/URLs via an INI file, and passing the
IP/URL to it...
I need the IPs/URLs
t;should" be fairly straight, if it is local to the
Perl program...
@result = `myCompiledVBApp AnyArgs`;
If the VB App returns anything, the @result should (hopefully???) catch
it...
Anyone think I have lost my mind, or did I get one right???
:P
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Is there an easy way to get the version of an EXE with
Perl?
I know in VB I would just create a hook into an API, but
am not sure how to do it in Perl.
TIA!
Chris Anderson
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Jenda Krynicky wrote:
> From: Chris <[EMAIL PROTECTED]>
>
>>Is there an easy way to get the version of an EXE with
>>Perl?
>>
>>I know in VB I would just create a hook into an API, but
>>am not sure how to do it in Perl.
>>
>
matching string.
Thus a Case Statement, IMHO, would be the best possible solution - with
my current knowledge...
:)
TIA!!
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Jenda Krynicky wrote:
> From: Chris <[EMAIL PROTECTED]>
>
>>I have been looking in the Learning Perl book, and cannot find it.
>>
>>I am sure that it is just a terminology thing.
>>
>>In VB {Yeah the old VB again :P) I could do:
>>
>>
I am working a script that is a solution to a problem in Intermediate
Perl. Here is the script:
#!/usr/bin/perl -w
use strict;
sub check_items_for_all {
my $all_ref = @_;
my @who = keys %$all_ref;
my @required = qw(preserver sunscreen water_bottle jacket);
my @m
I'm trying to solve another problem in Intermediate Perl. Here is the
problem:
The program from Exercise 2 in Chapter 5 needs to read the entire
datafile each time it runs. However, the Professor has a new router
logfile each day and doesn't want to keep all that data in one giant
file that take
Ok I figured out a solution:
#!/usr/bin/perl -w
use strict;
use Storable;
my %total_bytes;
my $all = "**all machines**";
my $output_file = 'storage';
if (-e $output_file) {
my $hashref = retrieve $output_file;
%total_bytes = %$hashref;
} else {
print "$output_file has not
I'm working on yet another exercise from Intermediate Perl. I've been
given a script that searches for files that fall between a two
timestamps. For the exercise, I am supposed to write the
gather_mtime_between subroutine that will return two references to two
subroutines. One will use File::Fin
Ok, if anyone is interested, here is my answer:
#!/usr/bin/perl -w
# Testing code for Exercise 6-1. Your task is to write the sub
# gather_mtime_between.
use strict;
use File::Find;
use Time::Local;
my ($start, $stop) = @_;
my @starting_directories = @_;
my @found_items;
sub gather_mtime_betw
Yet another problem from Intermediate Perl, I've been given a log
file. Here is a sample of its contents:
Gilligan: 1 coconut
Skipper: 3 coconuts
Gilligan: 1 banana
Professor: 3 coconuts
MaryAnn: 2 papayas
Thurston: 2 mangoes
I am supposed to read the log file and output its contents into a
seri
I want to install IO::Scalar. However, I can't find it with the
Active Perl's Perl Package Manager. Do this module still exist?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
I'm writing a script that maps out a file system. Here is what I have
so far:
#!/usr/bin/perl -w
use strict;
#use Data::Dumper;
sub data_for_path {
my $path = shift;
if (-f $path or -l $path) {
return undef;
}
if (-d $path) {
my %di
et
this installed so I can interface SpamAssassin with ClamAV. Any help or
advice would be appreciated. This is being installed on a Ubuntu 14.04
LTS box.
Thank you
Chris
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Thu, 2014-07-24 at 00:28 +1200, Kent Fredric wrote:
>
> On 22 July 2014 06:05, Chris wrote:
> I'm not a programmer so I apologize if I'm on the wrong list
> but I'm
> looking for some assistance in installing File::Scan::ClamAV.
>
On Wed, 2014-07-23 at 09:06 -0500, Sam wrote:
> On 07/23/2014 07:53 AM, Chris wrote:
> > On Thu, 2014-07-24 at 00:28 +1200, Kent Fredric wrote:
> >>
> >> On 22 July 2014 06:05, Chris wrote:
> >> I'm not a programmer so I apologize if I&
> KENTNL - https://metacpan.org/author/KENTNL
>
Kent, I've forwarded this to the person who assisted me with the
changes. Hopefully he'll take up the challenge. I'll be posting the
changes I made here in a few, however, there are still problems getting
it to work.
Chris
gt;
> KENTNL - https://metacpan.org/author/KENTNL
>
>
Kent, here are the changes as attachments. The only changes were in the
't' folder.
--
Chris
31.11°N 97.89°W (Elev. 1092 ft)
21:21:03 up 3 days, 3:35, 1 user, load average: 0.34, 0.22, 0.23
Ubuntu 14.04 LTS, kernel 3.13.0-32-ge
On Wed, 2014-07-23 at 21:25 -0500, Chris wrote:
> On Thu, 2014-07-24 at 02:23 +1200, Kent Fredric wrote:
> >
> >
> >
> > On 24 July 2014 02:06, Sam wrote:
> >
> >
> > Can you post those changes or a link to the mailing list
Greetings,
I'm not exactly sure what its called but for example, when using mod_perl, I
see the following:
$r->prev->uri
my $c = $r->connection;
etc..
How do you create something like this? I was searching for a way to do the
following psuedo code:
my $fruits = new Fruit;
$fruits->apples =
On Wednesday 14 September 2005 04:25 am, Thomas Bätzler wrote:
> Chris <[EMAIL PROTECTED]> asked:
> > I'm not exactly sure what its called but for example, when
> > using mod_perl, I see the following:
> >
> > $r->prev->uri
> >
> > How do you
Hi list,
I am not sure if there is a proper name for this but was having some
difficulty searching for it.
Basically I have data in a file that is between two different
characters, for example:
# data data
data
data data data *
# more dataaa
mor *
Basically I want to slurp that file in, the
I keep feeling I should learn more before I post here (lest I look like a lazy
idiot who can't RTFM), but I'm getting too old to wait!
Anyway, first post:
Surely there's a module (or many) with a method to parse URL's down to TLD. I
just can't find nice lists of them. I need to see if some files
Hi Guys,
I have a problem with e-mail address's and an array. I have some code that
will be a documentation spider to go through all our technical
documentation, extract e-mail address's and attempt to sort and exclude
certain e-mails/patterns. All documentation is in plain text, so no filters,
et
die "Unable to connect to
> $ftpHost [REASON: $@] {$!}
- how does this works byethe way - is REASON a system variable
- Original Message -
From: "Dr. Poo" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, November 02, 2002 12:31 AM
Subject: Run a per
I need some ideas for parsing a multi-line message block and reformat
into columnar output
1. message block is bound by a begin and end tags {begin} {end}
2. within the message blocks are tags for column data :1: :34:
sample message blocks with column data
{begin}
:1:some text 1
:34:1234,00
:33:
How do I do the following without getting the message
Can't use string as hash ref while strict refs in use
use warnings;
#use strict;
my($a, @b, $c);
$a = '20020603';
$b[1] = 'name1';
$b[2] = 'name2';
$b[3] = 'name3';
my %h;
$h{$a} = $a;
$h{$a}->{$b[1]}= 1;
$h{$a}->{$b[2]}= 2;
$h{$a}->{$b[3]}= 3;
On Thu, 21 Nov 2002 07:42:55 -0500, [EMAIL PROTECTED] (Wiggins
D'Anconia) wrote:
>
>
>chris wrote:
>> How do I do the following without getting the message
>> Can't use string as hash ref while strict refs in use
>>
>> use warnings;
>> #use stric
I am retrieving rows with a money datatype from a database. These are
written to a file with 2 decimal places. I also keep a running total.
My problem is the total does not equal to the sum of details.
I have tried using
$amount = sprintf('%.2f', $amount);
$total += $amount;
# do this after all
On Fri, 22 Nov 2002 21:21:42 -0800, [EMAIL PROTECTED] (John W. Krahn)
wrote:
>Chris wrote:
>>
>> How do I tally money with perl?
>
>Assuming that you are tallying dollars like $12,345.67, convert to cents
>(an integer) by removing all punctuation and convert back to dol
On Fri, 22 Nov 2002 21:21:42 -0800, [EMAIL PROTECTED] (John W. Krahn)
wrote:
>Chris wrote:
>>
>> How do I tally money with perl?
>
>Assuming that you are tallying dollars like $12,345.67, convert to cents
>(an integer) by removing all punctuation and convert back to dol
On Sat, 23 Nov 2002 18:44:58 -0800, [EMAIL PROTECTED] (John W. Krahn)
wrote:
>Chris wrote:
>>
>> OK. I will try it. My amounts look more like this.
>>
>> @dollars = qw/ 12345.67 -12345.67 11555.99
On Sat, 23 Nov 2002 19:42:21 -0800, [EMAIL PROTECTED] (John W. Krahn)
wrote:
>
>If rounding does what you want then that should be fine. However, if
>you want to truncate this is one way to do it:
>
>my $amount = 11555.99;
>
>$amount =~ s/(?<=\.\d\d)\d+$//;
>
>
>
>John
So to put it all togeth
ets from this hash to be a
pointer to an array.)
Best regards,
Chris
On Monday, December 2, 2002, at 08:38 AM, Ben Crane wrote:
Hi,
a slight change to the previous mail: if I've got a
key (e.g. A, and I have 3 or 4 keys (which are all A)
which correspond to different data...
e.g. Acorn
s at http://www.oreillynet.com/pub/au/1059 for MacOS
X installation of Perl 5.8, then take questions to [EMAIL PROTECTED]
where people who've traveled your road before can be found in numbers.
Take care,
Chris
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I need to work with epoch time past the year 2038.
my $time = gmtime(2147483647 + 1);
print $time;
any ideas?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Mon, 10 Feb 2003 16:42:43 -0800, [EMAIL PROTECTED] (David) wrote:
>Chris wrote:
>
>> I need to work with epoch time past the year 2038.
>>
>> my $time = gmtime(2147483647 + 1);
>> print $time;
>>
>> any ideas?
>
>try:
>
>#!/usr/bin/perl
On 11 Feb 2003 10:59:09 -, [EMAIL PROTECTED] (Felix
Geerinckx) wrote:
>on Tue, 11 Feb 2003 00:31:22 GMT, [EMAIL PROTECTED] (Chris) wrote:
>
>> Nice. Do you know a hack? I am limited to a small perl 5.6.1
>> distro.
>
>The hack you are looking for can be found in the
How to change "20020706" to "July 6, 2002"?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
gt;
>Sent: Sunday, July 07, 2002 9:32 AM
>Subject: Re: How to change "20020706" to "July 6, 2002"?
>
>
>> Chris wrote:
>> >
>> > How to change "20020706" to "July 6, 2002"?
>>
>>
>> One way:
>>
&g
use Time::Local;
my $TimeInSeconds;
#convert broken-down time to seconds in UTC
$TimeInSeconds = timegm($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);
#snip snip snip
When I use the following in perl 5.6.1, the script terminates
immediately. What is wrong?
$TimeInSeconds = timegm(0,0,0,$mday,
I have a mask in "\\server\alias\*\file\". The asterisks will be
assigned the value of a variable. Any ideas?
my $folder = "foldername";
my string1 = "\\server\alias\*\file\";
# how to make string1 = \\server\alias\foldername\file\
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For addit
I am learning day by day and managed to pick up some gems from this
thread.. Please forgive my posts when they are too vague and the code
snippets that are too loose.
Thank you for all the wonderful help
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PRO
I have a large perl package and need just one small standalone
subroutine in it.
The use statement will lead to compile errors if I do not have all the
dependencies in my perl install. A work around would be to copy and
paste the sub inline.
Is there another way to reference a standalone sub i
Sounds like I am unable to reference the sub unless I make the
necessary changes in the package. The use of %EXPORT_TAGS and
@EXPORT_OK are considerations in the package's design. Am I
understanding this correctly?
On Sun, 14 Jul 2002 06:28:09 -0700, [EMAIL PROTECTED] (Drieux) wrote:
>what you w
I should have mentioned that the package does an import in main. This
will make it harder if not impossible to work around.
Using the sample provided
> use DTK::WebAccess;
This will cause the import to occur leading to compile errors. Am I
reading this correctly?
Thank you for your time
"Require" works on the top level package but the thing is so nested I
will end up with errors at the next level.
I just needed a quick temporary work around. In this thread, I
discovered a third option that works for me.
Problem definition
How to make easy use of some private subs in a package w
I inherited these packages and trying to find nice ways to steal some
code until I am able to rewrite the whole thing.
You are providing valuable guidance and I will try the 'use lib'
variation that you mentioned.
On Sun, 14 Jul 2002 14:55:28 -0700, [EMAIL PROTECTED] (Drieux) wrote:
>this is w
How to get folder name of current script running?
This may or may not be the current active folder but the folder where
the script is stored.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Just the thing I am looking for. I will try to read the docs first.
Thanks.
On Thu, 18 Jul 2002 16:27:06 -0700, [EMAIL PROTECTED] (John W. Krahn)
wrote:
>Chris wrote:
>>
>> How to get folder name of current script running?
>>
>> This may or may not be the current a
Here is what I am doing
use A;
my $this = {};
bless $this;
my $result = $this->A::sub1 (my $args);
Package A;
sub1 {
my $this = shift
my ($data) = @_;
my $result = $this->sub2($data); $this->sub2($data) does not load
return "$result";
}
sub2 {
...
}
I think I can understand why sub2 canno
I have two variables (@array1 and @array2). @array1 will be
initialized with a list of values. Is it possible to declare @array2
in such a way that it will reference @array1?
I am trying to avoid looping through the elements and copying over.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For ad
pkga;
print @{$this->{"pkg_variable1"}}; # this prints array of HASH values
$this->sub1();
package PkgA;
sub1 {
my $this = shift;
print @{$this->{"pkg_variable1"}}; # this prints contents of array
}
On Tue, 23 Jul 2002 05:11:52 -0500,
[EMAIL PROTECTED] (David T-G) wrote:
&
You are correct. I will follow your advice. Maybe I am making things
more difficult for myself.
On Tue, 23 Jul 2002 07:26:28 -0700, [EMAIL PROTECTED] (Drieux) wrote:
>why pass in an uninitialized value??? that is
>scoped to pass out of existence
>
>also this blessed "object" gambit should
Given a full pathname c:\windows\system32\kernel32.dll
I need to parse this into a directory, file, and extension
my $fullfilename = "c:\\windows\\system32\\kernel32.dll";
breaks down into the following
my $dir = "c:\\windows\\system32\\";
my $file = "kernel32";
my $ext = "dll";
--
To unsub
I get it. Thank you
use File::Basename;
my $os_string = "MSWin32";
fileparse_set_fstype($os_string);
my $fullfilename = "c:\\windows\\system32\\kernel32.dll";
my ($name,$path,$suffix) = fileparse($fullfilename, '\..*');
$suffix =~ s/\.//g;
print "$name\n" . "$path\n" . "$suffix\n";
--
To unsubs
I have two perl distribution on the same computer.
The ActiveState distribution has PPM. I used this to install
Win32::TaskScheduler package and all is well.
For my other perl distribution, I thought I would just copy the files
in the two packing lists to the appropriate directories but perl i
just copied the files to the target
directories. My manual install was OK except for the perl56.dll
incompatibility issue.
Sorry for any confusion I may have caused.
On Sat, 27 Jul 2002 20:07:16 -0400, [EMAIL PROTECTED] (Chris) wrote:
>I have two perl distribution on the same computer.
>
Before I re-invent the wheel. Is there a perl parser routine for
crontab format files?
I have cron.pl written by Scott McMahan.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time - (1 * 60 * 60));
print sprintf("%02d%02d%02d", $hour,$min,$sec);
On 29 Jul 2002 11:33:19 -0400, [EMAIL PROTECTED] (Kevin Old) wrote:
>Basically I just want to find the previous hour in one of my scripts.
--
To unsubscr
This works for me
http://search.cpan.org/doc/WRW/Number-Format-1.44/Format.pm
use strict;
use warnings;
use Number::Format qw(:subs :vars);
$THOUSANDS_SEP = '.';
$DECIMAL_POINT = ',';
my @number = (123456789,123);
foreach my $number (@number) {
print format_number($number) . "\n";
}
use Nu
The display character for ASCII text depends on the font selected. If
you are using Times New Roman or New Courier, there is a longer dash
at chr(151).
Sounds like Word will save the doc as entered and do the changes on
the fly.
On Tue, 30 Jul 2002 23:49:12 -1000, [EMAIL PROTECTED] (Beau E. Cox)
Can I do the following with a single replace?
my %hash = ("1","abc", "2","xyz");
my $line = '12';
while( my($key, $val) = each(%hash) ) {
$line =~ s/$key/$val/g;
}
print $line . "\n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
ob
Showalter) wrote:
>> -Original Message-
>> From: chris [mailto:[EMAIL PROTECTED]]
>> Sent: Thursday, August 01, 2002 12:58 PM
>> To: [EMAIL PROTECTED]
>> Subject: Regexp to match by hash key and replace with hash value?
>>
>>
>> Can I do th
ok now how to build this on the fly using %hash
([12])
On Thu, 1 Aug 2002 16:01:24 -0400, [EMAIL PROTECTED] (Shishir
K. Singh) wrote:
>You forgot to put the brackets () around [12]
>$line =~ s/([12])/$hash{$1}/g;
>
>-Original Message-
>From: chris [mailto:[EMAIL PR
1 - 100 of 1750 matches
Mail list logo
