or die("Missing password");
#$opt_s or die("Missing site");
my $b = WWW::Bugzilla3->new( site => 'https://bugzilla.mysite.com' );
my $r = $b->login( "jbarik","xxx" ) or die("Could not login");
### $r
print "HI--HI : $r
end.
>
> On Thu, Sep 10, 2015 at 1:54 AM, Jitendra B <jiten...@gmail.com> wrote:
>
>> Dear Sir/Madam,
>>
>> while I try to connect and query some data from bugzilla, I am getting
>> following error.
>>
>> Error:
>>
>> RPC::XML::Client::se
name");
$opt_p or die("Missing password");
$opt_s or die("Missing site");
my $b = WWW::Bugzilla3->new( site => $opt_s );
my $r = $b->login( $opt_u, $opt_p ) or die("Could not login");
### $r
my @pids = $b->get_selectable_products(); # product
Hi All,
Can you please let me know the following snippset? why it is used for?
select( STDERR );
$| = 1;
select( STDOUT );
$| = 1;
print STDERR \nThis is india\n\n;
print STDERR Usage: This is build;
print STDERR where: base PL label\n;
and second question
second
Thank you very much Andy, Nathan, Shawn for your kind help.
I am new to the perl. Why auto-flush is needed here (STDERR autoflushes)?
It will free the memory or something else.
Regards,
Jitendra
On Tue, Jul 9, 2013 at 9:10 PM, Andy Bach afb...@gmail.com wrote:
On Tue, Jul 9, 2013 at 9:37
Any thoughts?
Thanks a ton!!
Hats off to you for encouragement
On Fri, Nov 4, 2011 at 5:05 PM, Shlomi Fish shlo...@shlomifish.org wrote:
Hi a b,
On Fri, 4 Nov 2011 15:18:00 +0530
a b testa...@gmail.com wrote:
apologize!!
Can you help me to understand how async I/O can help me
What's wrong
apologize!!
Can you help me to understand how async I/O can help me
Regards
a b
On Thu, Nov 3, 2011 at 9:06 PM, Shlomi Fish shlo...@shlomifish.org wrote:
Hello a b,
please reply to the list as I specifically request in my signature.
(Wretched
gmail.com.) I'm CCing the list.
On Thu, 3
Hi all,
i need to track down how much time each function is taking and anlyze if
threads can help
do we have any such function??
Hi,
did you got your issue resolved!! I also face segmentation fault but without
binmode
I didn't found any solution any where and opted another solution
my program was using thread in loop till perl dump core with Out of memory
issue
Best of luck
~a b
On Thu, Jun 9, 2011 at 5:32 AM, anders
Hey Thanks uri!!!
Actually i have a global variable which contains information of all files
and their size
you have given great directions
Thanks all of you!!
Regards
a b
On Fri, May 20, 2011 at 9:39 PM, Uri Guttman u...@stemsystems.com wrote:
ab == a b testa...@gmail.com writes:
ab
Hi All,
I need to truncate last few bytes of file. these files are big in size.
One idea is to write needed bytes to another file and delete the original
file, but i am dealing with big files :(
dont want to use truncate, it just truncating the size, all data is gone
any pointers
Thanks
a b
successful\n;
On Fri, May 20, 2011 at 6:07 PM, Paul Johnson p...@pjcj.net wrote:
On Fri, May 20, 2011 at 03:40:35PM +0530, a b wrote:
Hi All,
I need to truncate last few bytes of file. these files are big in size.
One idea is to write needed bytes to another file and delete the original
at 4:57 PM, a b testa...@gmail.com wrote:
Hey Chas,
Thanks much for your reply. I actually want to have some more control
over
this.
Thinking in way to initiate some in parallel also to get rid of OS
specific things [if there]
dd is really pretty limited if you want to use it as a IO
in this galaxy :(
Thanks Everyone
Regards,
a b
On Mon, Mar 28, 2011 at 6:10 PM, Chas. Owens chas.ow...@gmail.com wrote:
On Mon, Mar 28, 2011 at 05:22, a b testa...@gmail.com wrote:
Thanks Rob
I too was thinking that way. Just in case if any one might have face this
issue and hence this email
Hi,
I want to know if any module for dd in perl is available.
Any pointers will a great help
Thanks,
a b
Hey Rob,
Yes, you are right
Thanks to mention this out.
I was referring to unix dd command. was wondering if we have any module
already available.
i didn't found on cpan
Thx
a b
On Mon, Mar 28, 2011 at 2:05 PM, Rob Coops rco...@gmail.com wrote:
On Mon, Mar 28, 2011 at 10:18 AM, a b testa
Thanks Rob
I too was thinking that way. Just in case if any one might have face this
issue and hence this email
Well if no module i will live with it for time being
Regards,
a b
On Mon, Mar 28, 2011 at 2:46 PM, Rob Coops rco...@gmail.com wrote:
I had a quick look but I can only see people
this
thread on the web if you would explain what you did.
Octavian
--
From: a b testa...@gmail.com
Thanks a lot all for your views!! i got my solution
Regards,
a b
On Mon, Jan 31, 2011 at 10:48 PM, Rob Dixon rob.di...@gmx.com wrote:
On 31/01/2011 09:27, a b wrote:
Making
Thanks a lot all for your views!! i got my solution
Regards,
a b
On Mon, Jan 31, 2011 at 10:48 PM, Rob Dixon rob.di...@gmx.com wrote:
On 31/01/2011 09:27, a b wrote:
Making it more clear.
I want to make tar ball which contains my perl scripts and no other
dependencies required. like Net
help much appeciated!!!
Regards,
a b
On Sun, Jan 30, 2011 at 9:07 PM, Rob Dixon rob.di...@gmx.com wrote:
On 30/01/2011 14:09, a b wrote:
I have a query regarding using lib modules
1) I've some custom modules which uses various default routines like
Net::rsh etc
Now, i want to pack all
Hello All,
I have a query regarding using lib modules
1) I've some custom modules which uses various default routines like
Net::rsh etc
Now, i want to pack all default routines into my lib and use that lib in my
custom modules
i.e
package MyModule;
use lib lib/test;(here i am placing my Rsh.pm
If so, how print TTL = $line\n does give me the right value ! (I
get TTL = 125 if ping to Windows machine.
Thanks, for your answers.
On Jan 21, 4:30 pm, rob.di...@gmx.com (Rob Dixon) wrote:
On 21/01/2011 05:50, Erez Schatz wrote:
On 20 January 2011 15:38, Eyal B.ewinst...@gmail.com
On Jan 21, 11:42 pm, ewinst...@gmail.com (Eyal B.) wrote:
On Jan 21, 4:30 pm, rob.di...@gmx.com (Rob Dixon) wrote:
On 21/01/2011 05:50, Erez Schatz wrote:
On 20 January 2011 15:38, Eyal B.ewinst...@gmail.com wrote:
I'm getting an error on the line where I should use the TTL variable
On Jan 21, 4:30 pm, rob.di...@gmx.com (Rob Dixon) wrote:
On 21/01/2011 05:50, Erez Schatz wrote:
On 20 January 2011 15:38, Eyal B.ewinst...@gmail.com wrote:
I'm getting an error on the line where I should use the TTL variable -
and take the right value from the hash (%list) :Use of
Tried to implement your recommendations step by step .
#! C:\Perl\bin\perl
use strict;
use warnings;
my %list = (60=linux,61=linux,62=linux,63=linux,
64=linux,65=linux,125=Windows,126=Windows,127=Windows,
128=Windows,250=Unix,251=Unix,252=Unix,253=Unix,
254=Unix,255=Unix,
On Jan 21, 7:50 am, moonb...@gmail.com (Erez Schatz) wrote:
On 20 January 2011 15:38, Eyal B. ewinst...@gmail.com wrote:
I'm writing a scripts that check the TTL of the ping and found the OS.
According the TTL - the script should let me know which OS it is :
Linux/ Windows or Unix (Hash
I'm writing a scripts that check the TTL of the ping and found the OS.
According the TTL - the script should let me know which OS it is :
Linux/ Windows or Unix (Hash table)
I'm getting an error on the line where I should use the TTL variable -
and take the right value from the hash (%list) :Use
On Oct 23, 6:45 pm, shlo...@iglu.org.il (Shlomi Fish) wrote:
Hi KA B,
On Friday 22 October 2010 21:12:29 KA B wrote:
I`m trying to get the filehandler 1 and 2 to print the result in one
line.
It's filehandles - not filehandlers.
The script i have made makes 2 lines.
The script goes
I`m trying to get the filehandler 1 and 2 to print the result in one
line.
The script i have made makes 2 lines.
The script goes like this:
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
$mon += 1;
open FH,echo $year-$mon-$yday $hour:$min
Thanks a lot All of your
On Wed, Oct 13, 2010 at 6:21 AM, Brian Fraser frase...@gmail.com wrote:
The usual elevator example:
http://www.perl.com/pub/2002/09/04/threads.html
I'm not entirely sure if the article is dated (I used it a couple of months
back as a personal introduction to threads
Thanks a lot Shlomi and Thomas.
I will try with these methods.
On Tue, Mar 23, 2010 at 7:13 PM, Shlomi Fish shlo...@iglu.org.il wrote:
Hi Sheela,
On Tuesday 23 Mar 2010 15:06:24 sheela b wrote:
Hi All,
How to delete last 10 lines of a file using Perl one liner?
I used
Hi All,
How to delete last 10 lines of a file using Perl one liner?
I used the following one liner to delete first 10 lines of a file,
perl -i.bak -ne 'print unless 1..10' test.txt
Regards
Sheela
Hi Jenn,
You can fing max and min value as,
my @ar = (1,2,3,4,58,9,2,1);
my $max = (sort { $b = $a } @ar)[0];
my $min = (sort { $a = $b } @ar)[0];
Regards
Sheela
On Wed, Jul 22, 2009 at 12:48 PM, Jenn G. practicalp...@gmail.com wrote:
Hello,
How to lookup the max and min value in an array
Hi All,
I have shopping cart website integrating with authorize.net for Payment
gateway.
Authorize.net is working fine in test mode, but in the live mode, i am not
able to give any credits to customer. It displays following error message.
The referenced transaction does not meet the criteria
i am completely new to perl, can you explain to me the following line of
code in red.
how does this line of code grab a time value and assign it to $ time,
how does assigment happend in this conditiona statement.
while ()
{
chop;
# Grab the time
next unless ($time) = /(\d+:\d+:\d+\,\d+)/;
Hi ,
Can any body tells me what do we mean by below code
snip
$ROUTE::COMM{NEWROUTE}{OS()}
/snip
Thanks in Advance
a b .
Is there any option to redirect a URL in perl other than Location ?
Regards
Sheela
-22 16:52 source.txt
-rw-r--r-- 1 adave aix0 2008-07-22 18:03 overview.ppt
Thanks,
a b
I'm really new to programming and this is my first perl prog. I'm looking
for any advice or comments on this script.
(I don't want to develop bad habits from the start)
Thx.
#!/usr/bin/perl
#Name:circumf
#Date:Jun19/08
#Author:Bornhoft, J
#Purpose:to calculate the circumference of a circle
-Hi,
Im trying to run this code: (im getting this error
message):
Can't use string (From) as a HASH ref while strict
refs in use at
/usr/lib/perl5/site_perl/5.8.8/Mail/Mailer.pm line
320.
The code:
use strict;
use warnings;
use Mail::Mailer;
my @lines = ();
open (INFO, /var/log/messages) or
Hi,
I did it and know I get another error:
syntax error at logcheck line 25, near 'PiX Detected
Attack } ' )
Missing right curly or square bracket at logcheck line
28, at end of line
Execution of logcheck aborted due to compilation
errors.
This is the code:
use strict;
use warnings;
use
Ok I did it and know I get another error :-(
here goes the error:
Died at /usr/lib/perl5/site_perl/5.8.8/Mail/Mailer.pm
line 284.
this is the code:
use strict;
use warnings;
use Mail::Mailer;
my @lines = ();
open (INFO, /var/log/messages) or die $!;
while (my $line = INFO) {
if ($line =~
Hi all !!
im really new to perl so please bare with me and
help..
I need a script to read /var/log messages and each
time it sees a line with the word IDS it will send
the whole line via mail to the administrator of the
IDS, here is an example of such a line:
Oct 19 15:40:30 172.31.0.254
HP-UX slias10 B.11.31 U ia64 (ta)
command timed-out at j.pl line 7
login:
/OP
Please, suggest i am able to see the
On 5/16/07, Jay Savage [EMAIL PROTECTED] wrote:
On 5/16/07, a b [EMAIL PROTECTED] wrote:
Hello,
I am trying to telnet to all m/c for which i haven't set password(only
root
Hello,
I am trying to telnet to all m/c for which i haven't set password(only root
is a valid user)
any body can telnet using root user
But when i try to access through perl it
snip
use warnings;
use Net::Telnet;
my $t = new Net::Telnet (Timeout = 10,Prompt = '/bash\$ $/');
my @line;
Hi people,
I installed module Net::Ftp::Recursive. All following steps succeeded:
perl Makefile.PL
make
make test
make install
# next i tested if module loading correctly
~$ perl -MNet::Ftp::Recursive -e 1;
Can't locate Net/Ftp/Recursive.pm in @INC (@INC contains: /etc/perl
I will try to reproduce this again. I am sure it was Net::FTP::Recursive
thank you for response
~igy
On 4/24/07, [EMAIL PROTECTED] [EMAIL PROTECTED] wrote:
Hi,
I think that you have a little mistake
Run perl -MNet::FTP::Recursive -e 1; instead of perl -MNet::Ftp::Recursive -e
1;.
Yours,
If you are on a Unix platform, you can use tee in your script to
direct output to two places at the same time.
- Matt
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 29, 2007 2:17 AM
To: Perl Beginners
Subject: Re: sending output to file and
one more to remove spaces selectively:
$string =~ s/(\s+)(?:(?!date=|time=)(?=\w+=))/*/g;
cheers,
~i
On 1/20/07, Mumia W. [EMAIL PROTECTED] wrote:
On 01/20/2007 06:46 AM, Michael Alipio wrote:
Cool
I got this from approximately 71% perldoc perlre:
print 5: got $1\n if $x =~
you can use lookaheads:
my @matched = split /\s+(?=\w+=)/,$string;
cheers,
~i
On 1/19/07, Michael Alipio [EMAIL PROTECTED] wrote:
Hi,
Suppose I have:
my $string = 'Jan 19 11:37:21 firewall date=2007-01-19 time=11:42:15
devname=TESTfirewall device_id=FGT-602905503304 log_id=0104032006 ty
[,|\s+] - means one of the following characters: , or | or \s or +
(,|\s+) - means , or \s+
, but yeas alternation will match $2 in :
~ /date=(\S+?)(\s+|,)/;
On 1/19/07, Michael Alipio [EMAIL PROTECTED] wrote:
Hi,
I'm a bit confused here:
I have a regexp:
($date) = $log =~
substitute \s with * to make split easier sounds like a very bad idea.
didn't see people doing that in perl.
problem is solved, why do you add extra complexity?
On 1/19/07, Michael Alipio [EMAIL PROTECTED] wrote:
- Original Message
From: I.B. [EMAIL PROTECTED]
To: begginers perl.org
also keep open and close outside the loop.
you overwriting previously written lines.
open FILE2,$file;
foreach @lines
{
print FILE2 $_;
}
close FILE2
cheers
On 1/18/07, Mathew [EMAIL PROTECTED] wrote:
Thanks. That likely will help. However, I still can't even get it to
perform any action.
columns which is working, but in column A for example
I am using the method write_col which requires a
reference, I am printing the absolute path
/home/dbsmith/passwd.dubhpr01.sun when all I need to
print is sun and in column B all I will need is
dubhpr01 or the hostname. For this reason I am trying
the absolute path
/home/dbsmith/passwd.dubhpr01.sun when all I need
to
print is sun and in column B all I will need is
dubhpr01 or the hostname.
So stop printing what you don't need, and start
printing what you do
need :) :) :) This code is not writing itself --
you have to take
--- Charles K. Clarkson [EMAIL PROTECTED]
wrote:
Derek B. Smith mailto:[EMAIL PROTECTED]
wrote:
: I then tried
Try something simpler, not more complex. Test
this case.
my @hosts = ( 'sun' );
$worksheet-write_col( 'A2', [EMAIL PROTECTED], $sheet_format
);
If it fails
I want to extend any apologies necessary for my last
post. I am not a violent person its just I get
annoyed when some people are negative, or to me, are
condescending. I was not mad just upset and bothered.
No biggy and the past is in the past. : )
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
I have a string like so:
/home/dbsmith/passwd.oftappp1.hpux and I need to parse
out oftappp1 and hpux.
I have tried to use substr and and regexp with =~.
Here is what I have tried, but need some help cause I
am getting frustrated.
NOTE: strings after passwd are variable in length,
could be 3-10
or just:
my $filename=/home/dbsmith/passwd.duby02.linux;
my ($pass,$hostname,$platform)=split /\./, $filename;
~i
On 12/12/06, Lawrence Statton XE2/N1GAK [EMAIL PROTECTED] wrote:
If you're dealing with variable length strings, separated by some kind
of character, then regexp is the tool you
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Dienstag, 12. Dezember 2006 23:19:
I have a string like so:
/home/dbsmith/passwd.oftappp1.hpux and I need to
parse
out oftappp1 and hpux.
I have tried to use substr and and regexp with =~.
Here is what I have tried
Why is return 1 coded at the end of many programs. For
example:
I know it means true but what does this do and why?
thank you
derek
#!/usr/bin/perl
#use strict;
my $user_name = qq(dsmithxx);
my $user_password = qq();
my $sql_server = qq(x);
my ($dbh,$drh,$stmt);
local
--- Jay Savage [EMAIL PROTECTED] wrote:
On 12/8/06, Derek B. Smith
[EMAIL PROTECTED] wrote:
Why is return 1 coded at the end of many programs.
For
example:
I know it means true but what does this do and
why?
Derek,
For historical reasons, the final statement of any
script
The input for the EXE has to be taken from the
file provided by the
user.AndThe EXE shud get invoked by just
dragging and dropping the
input file on the EXE.
Assume, the input file is some text file
containing some raw data.
How should this be done?
You'll get the path
2006 22:02:29 -
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com;
h=X-YMail-OSG:Received:Date:From:Subject:To:In-Reply-To:MIME-Version:Conten
t-Type:Content-Transfer-Encoding:Message-ID;
b=EB35j5LE7g7SFW+P1hAzS7Kob+z6Aaz02pv6hYoTR
--- zentara [EMAIL PROTECTED] wrote:
On Sat, 2 Dec 2006 08:08:22 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
I dont understand there is no xs component and
I
dont understand So you could actually include
the
EasyTCP code, as a package right into your script.
Will u
--- zentara [EMAIL PROTECTED] wrote:
On Fri, 1 Dec 2006 20:31:11 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
I was hoping for socket data transfers to mimic an
sftp/ftp get without having to deploy code to the
clients and or deploying this module on the
clients.
Think
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP,
Solaris,
RH Linux and Tru64 then store them on on HPUX
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP,
Solaris,
RH Linux and Tru64 then store them on on HPUX
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
(Derek B. Smith) wrote:
Hello... : )
I need to gather a single filename on hundreds of
servers ranging in *UX flavors from AIX, HP,
Solaris,
RH Linux and Tru64 then store them on on HPUX
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Freitag, 1. Dezember 2006 20:31:
--- zentara [EMAIL PROTECTED] wrote:
On Thu, 30 Nov 2006 13:34:16 -0800 (PST),
[EMAIL PROTECTED]
I need to gather a single filename on hundreds
of
servers ranging in *UX flavors from AIX
--- Jay Savage [EMAIL PROTECTED] wrote:
On 11/30/06, Hotz, Harry [EMAIL PROTECTED] wrote:
I have a new AIX 5.3 server that comes
with a default Perl 5.82.
I have a DB2 programmer that has scripts from an
old AIX 4.3 server that
used Perl 5.005_03. He will have to rewrite his
server and
client or just client? What do you recommend?
server A would be server which houses gathered files
server B would be client which is where unique
passwd files live.
thank you
derek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http
On 11/25/06, Richard Bagshaw [EMAIL PROTECTED] wrote:
META HTTP-EQUIV=CACHE-CONTROL CONTENT=NO-CACHE
META HTTP-EQUIV=PRAGMA CONTENT=NO-CACHE
HTML head isn't the same as setting an HTTP head;
Try Googling setting the Pragma: no-cache http header directly.
--
WC (Bill) Jones --
Hello,
I want to get a listing of Window services and each
associated status and its startup type. I looked
at Win32::Daemon::Simple but wasn't sure if this is a
good module for doing so?
W/out using a module,
Is there a registry entry for each service I could
parse or a database that I
that what shows up in the Services
MMC are not ALL the
Services the OS recognizes, but only the ones the
writers of each
Service chose to display in the MMC. Go figure.
-Original Message-
From: Derek B. Smith
[mailto:[EMAIL PROTECTED]
Sent: Friday, October 27, 2006 9:23 AM
--- Paul Johnson [EMAIL PROTECTED] wrote:
On Fri, Oct 20, 2006 at 08:11:36AM -0500,
[EMAIL PROTECTED] wrote:
Computer software consists of only two
components: ones and
zeros, in roughly equal proportions. All that is
required is to
sort them into the correct order.
Andrew
--- Chris Share [EMAIL PROTECTED] wrote:
Thanks for the info. Isn't this what the Perl
Package Manager is for?
Rob Dixon wrote:
Chris Share wrote:
I'm trying to implement the following code:
##
require LWP::UserAgent;
-- Andreas Puerzer [EMAIL PROTECTED] wrote:
Tom Phoenix schrieb:
On 10/18/06, Chris Share [EMAIL PROTECTED]
wrote:
I've got a question about $| = 1;
If I add $| = 1; at the top of the program this
fixes the problem and
the program runs as expected.
Normally,
--- Derek B. Smith [EMAIL PROTECTED]
wrote:
-- Andreas Puerzer [EMAIL PROTECTED] wrote:
Tom Phoenix schrieb:
On 10/18/06, Chris Share [EMAIL PROTECTED]
wrote:
I've got a question about $| = 1;
If I add $| = 1; at the top of the program this
fixes
--- Dr.Ruud [EMAIL PROTECTED] wrote:
Norbert Preining schreef:
The Perl Book says: Auto increment and decrement
work as in
C. So if I take this C program:
#include stdio.h
#include stddef.h
int main() {
int a;
int b;
a=3;
b
--- Rob Dixon [EMAIL PROTECTED] wrote:
Derek B. Smith wrote:
--- Dr.Ruud [EMAIL PROTECTED] wrote:
Norbert Preining schreef:
The Perl Book says: Auto increment and decrement
work as in
C. So if I take this C program:
#include stdio.h
#include stddef.h
int main
of this community, I found solution using
help of my former colleague
and I posted it here for others interested individuals to see. It is all
about exercising skills. And having fun.
;)
On 14 Oct 2006 10:13:16 -0700, Randal L. Schwartz merlyn@stonehenge.com
wrote:
I == I B [EMAIL PROTECTED] writes
thank you for reponse!
unfortunately I have to use regex to solve this problem.
I was trying to simplify:
$file=~/table.+Bug.+\/tr\s*tr.+\/tr\s*tr.+?\/tr\s*tr.+?\/tr\s*\/table/;
still does not work!!!
On 10/12/06, Dr.Ruud [EMAIL PROTECTED] wrote:
I . B . schreef:
i have a task
if ($file =~
/table.+(Bug.+?)\/td\/tr\s*(tr.+?\/tr\s+){2}\/table/s);
shell
it does matches my string Bug some word in both file1.txt and
file2.txt, should only match file1.txt
frustrated!
what is wrong here?
thank you!
On 10/13/06, I. B. [EMAIL PROTECTED] wrote:
thank you for reponse
Hi nice people,
how to specify using regular expressions: match everything but string (xxx)
i would do this :
$line =~ /[^(xxx)]+/;
but, as it was mentioned before () inside character class is not working.
what is solution here?
thank you!
~i
got it! very nice, not complicated at all. I didn't know about lookahead
feature. very useful.
this file that should be matched:
TABLE
TRTDrow 1/TD/TR
TRTDrow 2/TD/TR
TRTDrow 3/TD/TR
TRTDBug some word/TD/TR
TRTDrow 4/TD/TR
TRTDrow 5/TD/TR
/TABLE
this is file that should not be matched:
sorry, I didn't fraze my question correctly.
example :
$line=abcxabcxxabcxxxabc;
how to match everything beofre xxx but not xxx itself?
the answer i got is to use lookaheads:
my $line = abcxxabcxxxabc;
if ($line =~ m{(.*?(?:(?!xxx).))xxx}){
print matched: $1\n;
}
else{
print failed\n;
Hi folks,
i have a task to verify that word Bug is in the table in the 3rd row from
the buttom, i came up with regex , but it doesnt work.
can anyone please take a look?
#/usr/bin/perl -w
my $line =
table\ntrtdA/td/tr\ntrtdBug/td/tr\ntrtdC/td/tr\ntrtdD/td/tr\n/table;
print 3 matches: $1\n if
--- Marc Sacks [EMAIL PROTECTED] wrote:
I needed to find out the length of an array and did
it by referencing
the array in scalar context. However, use warnings
indicated that this
is a deprecated feature. Is there a non-deprecated
way to do this
(other than looping through the whole
I dont understand what the point of canonpath is here:
It seems to me canonpath only appply so links.
##-- Show me all installed Modules --##
use File::Find 'find';
use File::Spec::Functions;
print Your installed modules on $^O are:\n;
print - x 38,\n;
find { wanted = sub { print canonpath
-- RICHARD FERNANDEZ [EMAIL PROTECTED] wrote:
Hi folks,
I have the following in a CGI script:
When this code gets run (via webpage) I get the
following in the
error_log:
snip
output:
result: 256
STDOUT:
STDERR:
We trust you have received the usual lecture from
the
a
difference.
derek
Thanks derek.
the cat -etu will show us any funky unneeded control
characters.
if the user has never signed in and the admin never
ran passwd user
passwd -f user and then that user never went into make
his/her password permenant then yes it would matter
b/c the passwd
returns true or false (1 or '') and in list
context it returns the
contents of any capturing parentheses in the
pattern.
The expression:
( $ptypeline =~ /movable.+(sine|geo|radial|ortho)/i
)[ 0 ]
is a list slice so the regular expression is in list
context but the slice is
a
-- Mathew Snyder [EMAIL PROTECTED] wrote:
Sorry. Just had to do it. :)
--
Mathew Snyder
--
It got a laugh from me!
thank you
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
-- Charles K. Clarkson [EMAIL PROTECTED] wrote:
John Ackley wrote:
: while( ($service) = $SERVICE-fetchrow_array ) {
According to the DBI docs:
If there are no more rows or if an error occurs,
then fetchrow_array returns an empty list.
When a value is returned,
I reread the docs and I am still unclear with the
code:
$a[ 10 + rand( @a - 10 )
I do understand everything but $a[ 10 + rand( @a - 10
)
b/c you say subtract 10 from each element occurrance
= @a - 10 then add 10 to the result of rand (@a - 10)
To me this is offsets itself which is why I am
sub getfile {
my $filename = shift;
open F, $filename or die open failed: $!;
my $contents = '';
while (F) {
$contents .= $_;
}
close F;
return $contents;
}
This is inefficient, because the F operator makes
Perl go to all the trouble of breaking the file into
lines and returning them
-- Mumia W. [EMAIL PROTECTED]
wrote:
On 09/29/2006 12:15 PM, Derek B. Smith wrote:
--- D. Bolliger [EMAIL PROTECTED] wrote:
Derek B. Smith am Donnerstag, 28. September 2006
22:28:
Why not just specify a non-digit for the first
character:
my @a = ( 0 .. 9, 'a' .. 'z', 'A' .. 'Z
--- Derek B. Smith [EMAIL PROTECTED]
wrote:
I need to substitute a conversion using chr, but
have
failed on multiple attempts. Basically if the first
element contains a # then convert it. Will anyone
advise?
thank you
derek
#if first char is a-z then print it else warn
#chop string
1 - 100 of 354 matches
Mail list logo