"Mark Wagner" schreef:
> I've got a program where I could greatly simplify things by
> temporarily replacing strings with single characters. However, the
> potential input includes any valid Unicode character. Assuming that
> the invalid characters are never output to anything, are there any
> p
Hi All,
I have one variable which has the value as follows
"ccvob01pts/2Nov 21 12:17 (135.27.157.38 logged in ."
Now I want only "ccvob01" from that string so I wrote reg.exp. as
follows
my ($usr1)=($usr =~ m{(.+)\S$}); where $usr contains above string.
But still I am not
Sayed, Irfan (Irfan) wrote:
I have one variable which has the value as follows
"ccvob01pts/2Nov 21 12:17 (135.27.157.38 logged in ."
Now I want only "ccvob01" from that string so I wrote reg.exp. as
follows
my ($usr1)=($usr =~ m{(.+)\S$}); where $usr contains above string
On Nov 21, 2007 6:47 PM, Sayed, Irfan (Irfan) <[EMAIL PROTECTED]> wrote:
> Hi All,
>
> I have one variable which has the value as follows
>
> "ccvob01pts/2Nov 21 12:17 (135.27.157.38 logged in ."
>
> Now I want only "ccvob01" from that string so I wrote reg.exp. as
> follows
try
Thanks Jeff
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jeff
Pang
Sent: Wednesday, November 21, 2007 4:26 PM
To: Sayed, Irfan (Irfan)
Cc: beginners @ perl. org
Subject: Re: Regular expression to get part of string
On Nov 21, 2007 6:47 PM, Sayed, I
Thanks Rob
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Wednesday, November 21, 2007 4:33 PM
To: beginners @ perl. org
Cc: Sayed, Irfan (Irfan)
Subject: Re: Regular expression to get part of string
Sayed, Irfan (Irfan) wrote:
>
> I have one variable which has t
Omega -1911 wrote:
>> which isn't an equivalent to yours - it simply makes sure that the
>> record contains 'Powerball:' and at least one digit - but I'm sure it is
>> adequate. My own solution didn't even do this much checking, since I
>> read the OP as saying that all irrelevant data records had
First off thanks for the assistance
See inline comments:
>>> John W.Krahn <[EMAIL PROTECTED]> 11/20/2007 4:31:01 PM >>>
On Tuesday 20 November 2007 14:00, Gerald Wheeler wrote:
> Running Perl 5.6.1 on Solaris 9 SPARC
> No (access to) modules available other than what comes with the
basic
> perl i
On Nov 21, 2:33 am, [EMAIL PROTECTED] (Rob Dixon) wrote:
> Francois wrote:
> > I tried to get data from a site which use cookies and redirect the
> > user, I spend a lot of time with the same result: connection timed out
> > until I realised that all was fine if I did'nt send the header...
>
> > Th
On Nov 21, 4:22 am, [EMAIL PROTECTED] (Tom Phoenix) wrote:
> Are you trying to ask, will today's invalid Unicode characters be used
> for some valid purpose in tomorrow's Unicode, and thereby break my
> program? Maybe.
Really? I thought Unicode did make the promise that these codes would
never be
Hi,
I have the following log and my requirement is to capture the block
from one "-->" symbol to another. and put it in other file, using
perl.
-
--> Checking Server Hostname <--
-
Server Hostname: x
On Nov 21, 2007 11:28 AM, avinashsuratkal <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I have the following log and my requirement is to capture the block
> from one "-->" symbol to another. and put it in other file, using
> perl.
>
> -
> --> Checking Server Hostname <--
>
John,
I have modified my script as per your suggestions:
**
++
chomp() returns the number of $/ values that were removed from its argument(s)
so that is not what you want to do here.
You should probably have chomped the data when you input it.
++
I am attempting to remove the newline character at
Gunnar,
I checked and find that I do have the Time::Local module installed
The problem is ... how do I increment the day from start to end of the
calendar year?
If i initially set nextday to: 2007/01/01 how do i easily increment
this?
Thanks
>>> Gunnar Hjalmarsson <[EMAIL PROTECTED]> 11/20/2
I checked and find that I do have the Time::Local module installed
The problem is ... how do I increment the day from start to end of the
calendar year?
If i initially set nextday to: 2007/01/01 how do i easily increment
this?
It appears that Date::Calc would do what I need only I do not have
acces
On 11/21/07, Gerald Wheeler <[EMAIL PROTECTED]> wrote:
> It appears that Date::Calc would do what I need only I do not have
> access to additional modules
You don't need to be the system administrator to install modules. See
the perlmodinstall manpage.
http://perldoc.perl.org/perlmodinstall.
Gerald Wheeler wrote:
Gunnar Hjalmarsson wrote:
use Time::Local;
sub nextday {
my ($y, $m, $d) = split /\//, shift;
my $t = timegm 0, 0, 0, $d, $m-1, $y;
($d, $m, $y) = ( gmtime($t+24*60*60) )[3..5];
sprintf '%d/%02d/%02d', $y+1900, $m+1, $d;
}
On Wednesday 21 November 2007 09:40, Gerald Wheeler wrote:
> John,
> I have modified my script as per your suggestions:
>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $ifiln = 'abc.csv';
> my $ofiln = 'xyz.txt';
>
> # get start year () from command line
> my($rsvr, $rdt, $dyr) = @
18 matches
Mail list logo