Hi!
In the attached script I implement two packages:
Package1 and Package2.
Package2 is derived from Package1, which I guess I dont well.
Now Package1 has a method called IncErr which increments a variable named $err.
If I call something like:
$a = Package1::new();
$a->IncErr();
print "ERR1: $
Hi!
Sorry if I double post, but the maillserver seems to have something against
perl scripts attachements, so my first email was droped by the MTA : /
Maybe if I put the code inline will be ok
In the attached script I implement two packages:
Package1 and Package2.
Package2 is derived from Packag
Yes, the two I mentioned above were searches from CPAN only.
On 11/2/06, Tom Phoenix <[EMAIL PROTECTED]> wrote:
On 11/2/06, Saurabh Singhvi <[EMAIL PROTECTED]> wrote:
> What all classification algorithms exist like Algorithm::Naivebayes ?
Have you seen what's on CPAN?
http://search.cpan.
On 11/03/2006 02:23 AM, Muttley Meen wrote:
Hi!
Sorry if I double post, but the maillserver seems to have something against
perl scripts attachements, so my first email was droped by the MTA : /
Maybe if I put the code inline will be ok
In the attached script I implement two packages:
Package1 a
Muttley Meen wrote:
>
> Hi!
> Sorry if I double post, but the maillserver seems to have something against
> perl scripts attachements, so my first email was droped by the MTA : /
> Maybe if I put the code inline will be ok
>
> In the attached script I implement two packages:
> Package1 and Package
Mumia W. wrote:
>
On 11/03/2006 02:23 AM, Muttley Meen wrote:
In the attached script I implement two packages:
Package1 and Package2.
Package2 is derived from Package1, which I guess I dont well.
Now Package1 has a method called IncErr which increments a variable
named $err.
If I call somet
Richmond Platz <[EMAIL PROTECTED]> wrote:
> What application do I need to be in to have it actually run for me, to
> see the output.
Just name it as something.pl and run it. AS Perl sets up associations to
run Perl programs automatically.
> I'm wondering if I may have some config prob or somethi
Morning all,
I need to compare the current date with that of a file, if the file is
older than the current date remove it and replace it with a new one from
new data. Below I have the code set for getting the date but can't come
up with an easy way to compare it against the file date. Can anyone
Thanks again Zentara. I appreciate the help; the information you've
provided will give me a big jump in getting this going.
Regards,
Paul
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of zentara
Sent: Friday, November 03, 2006 6:45 AM
To: beginners@perl.
"Tim Wolak" schreef:
> I need to compare the current date with that of a file, if the file is
> older than the current date remove it and replace it with a new one
> from new data. Below I have the code set for getting the date but
> can't come up with an easy way to compare it against the file d
Well , here is what I come up with:
#! /usr/bin/perl
use strict;
use warnings;
package Package1 ;
sub new {
my ($class) = @_ ;
print "Call new [".$class."]\n" ;
my @r = [];
my $this = {};
$this->{err} = 0 ;
$this->{r}->[0] = Package2->new();
$this->{r}->[0]->{err} =
All,
I need to parse lines from a file and at a certain position test to see
if it is what a want, if so I need to grab information from other
positions in the line and drop it into a file. As I have never done
this before, can someone point me in the right direction as to get
started?
Thanks fo
If you provide some data and/or what you have attempted, it will go
much farther in getting some assistance. Otherwise the list is guessing
at what you are really trying to do.
If you have any problems or questions, please let me know.
Thanks.
Wags ;)
David R Wagner
Senior Prog
Tim Wolak wrote:
All,
I need to parse lines from a file and at a certain position test to see
if it is what a want, if so I need to grab information from other
positions in the line and drop it into a file. As I have never done
this before, can someone point me in the right direction as to get
Here is an example of the lines I am reading in below. This is one
continuous line. I need information from positions 70-71, if they match
what I want then print that and position 92(also sub-positions C,P,D).
Being that I have never had to do this before I'm not sure what to use
to step me thro
So what makes up a line? CME through the next CME? You can
concatenate all the data together if desired( do a chomp first) and
check if CME or What denotes the next rcd? Then you could either do a
equal(ie,
if ( next rcd ) {
if ( substr($MyData,70,2) eq q[xx] ) {
The whole thing below is the line, its just word wrapped in scrt. I
can't concatenate it because everything is in a specific position for
what I need. Is the seek module what I need to be using? I just need
to collect the two characters in position 70 and 71, test if they are
GE,E$,E0,etc.. If t
I am looking for an way to interpolate backslash-sequences
within a string with the usual perl semantics, e.g.
$s='1\t\2\t3\na\ b c' should become:
'123
a b c'
Things I tried were for example
$s= eval('' . "$val"); # (hoping to trigger the normal interpolation) or
$s=~ s/\\(.)/"\\$1"/eg;
but some
Tim Wolak am Freitag, 3. November 2006 18:37:
> All,
>
> I need to parse lines from a file and at a certain position test to see
> if it is what a want, if so I need to grab information from other
> positions in the line and drop it into a file. As I have never done
> this before, can someone poin
Hi
I am writing this email hoping that you can advise to run my perl program
successfully.
when I include any library, such as, "locale", or "warnings" or anyother, I
am facing the following
error.
Could you please guide me, how to avoid this problem at all.
Thank you.
Regards
Kumar
_
Peter Daum am Freitag, 3. November 2006 20:26:
Hoi Peter,
> I am looking for an way to interpolate backslash-sequences
> within a string with the usual perl semantics, e.g.
> $s='1\t\2\t3\na\ b c' should become:
> '123
> a b c'
With usual perl semantics, the result is different :-)
> Things I t
On 11/3/06, Peter Daum <[EMAIL PROTECTED]> wrote:
I am looking for an way to interpolate backslash-sequences
within a string with the usual perl semantics
That's what eval does, although you have to build your string with
care. Don't let the user put their own data into that string; they can
(
Peter Daum wrote:
>
I am looking for an way to interpolate backslash-sequences
within a string with the usual perl semantics, e.g.
$s='1\t\2\t3\na\ b c' should become:
'123
a b c'
Things I tried were for example
$s= eval('' . "$val"); # (hoping to trigger the normal interpolation) or
$s=~ s/\\(.
On 11/3/06, Kumar, David - IT Department <[EMAIL PROTECTED]> wrote:
Can't locate locale.pm in @INC (@INC contains:
Your perl is mis-configured or mis-installed. Redo the installation,
make sure that all tests pass, and you'll be back on track.
Cheers!
--Tom Phoenix
Stonehenge Perl Training
If it is only one line and it is record separator is carriage
return as defined by your system, then a simple loop like:
while: ( ) {
chomp;
if ( substr($_,70,2) =~ /(xx|xy|xz)/I ) {
# substr starts at zero vs 1
print MYFILE
Peter Daum wrote:
> I am looking for an way to interpolate backslash-sequences
> within a string with the usual perl semantics, e.g.
> $s='1\t\2\t3\na\ b c' should become:
> '123
> a b c'
>
> Things I tried were for example
> $s= eval('' . "$val"); # (hoping to trigger the normal interpolation) or
On 11/03/2006 04:57 AM, Rob Dixon wrote:
Mumia W. wrote:
>
On 11/03/2006 02:23 AM, Muttley Meen wrote:
In the attached script I implement two packages:
Package1 and Package2.
Package2 is derived from Package1, which I guess I dont well.
Now Package1 has a method called IncErr which increment
On 11/03/2006 10:16 AM, Muttley Meen wrote:
On 11/3/06, Rob Dixon <[EMAIL PROTECTED]> wrote:
Mumia W. wrote:
>
> On 11/03/2006 02:23 AM, Muttley Meen wrote:
>>
>> In the attached script I implement two packages:
>> Package1 and Package2.
>>
>> Package2 is derived from Package1, which I guess I
Rob Dixon wrote:
>
> Peter Daum wrote:
>>
>> I am looking for an way to interpolate backslash-sequences
>> within a string with the usual perl semantics, e.g.
>> $s='1\t\2\t3\na\ b c' should become:
>> '123
>> a b c'
>>
>> Things I tried were for example
>> $s= eval('' . "$val"); # (hoping to trig
Thanks David, that is exactly what I did just before receiving your
email! Thanks for the help!
Tim
-Original Message-
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:[EMAIL PROTECTED]
Sent: Friday, November 03, 2006 3:17 PM
To: Tim Wolak; beginners@perl.org
Subject: R
Wagner, David --- Senior Programmer Analyst --- WGO am Freitag, 3. November
2006 22:16:
> If it is only one line and it is record separator is carriage
> return as defined by your system, then a simple loop like:
Hello David and Tim,
The below code is a good example why one should happily
Sorry, but I was just giving quick code and had NOT run. Using
of strict and warnings is the only way to go. I was writing and doing
other things. I apologize for not catching, but was supplying the open
for th input or output, etc. just a inkling on what he could do to get
started.
Hi, everyone,
When I want to install perl module WWW::Yahoo::KeywordExtractor in
my Ubuntu damper 6.06 OS, it doesn't work properly. The error message
is listed below:
===
CPAN: Storable loaded ok
Going to read /home/wanghui/.cpan/Metadata
Database was gene
On Fri, 2006-11-03 at 08:08 -0600, Tim Wolak wrote:
> Morning all,
>
> I need to compare the current date with that of a file, if the file is
> older than the current date remove it and replace it with a new one from
> new data. Below I have the code set for getting the date but can't come
> up
>
>Hi, everyone,
>
>When I want to install perl module WWW::Yahoo::KeywordExtractor in
>
>my Ubuntu damper 6.06 OS, it doesn't work properly.
Looks like something with XML is wrong.
Give a try to install XML::SAX::Expat and XML::Simple at first.
--
Books below translated by me to Chinese.
Pra
35 matches
Mail list logo
