On 03/30/2007 01:20 PM, Jason Roth wrote:
I'm using www::mechanize to submit a form to a website, and one of the
fields is disabled (and enabled by javascript on the page which
obviously isn't running). When I try to set a value for this field I
get a no such field error. How to I set a value
On 03/29/2007 06:39 AM, Beginner wrote:
Hi,
I might be in above my head here so bear with me if I am not making
sense.
I have to retrieve and extract an xml fragment from a REST server. I
have followed some examples from the Web Services book. I am able
to retrieve the data via
On 03/27/2007 03:34 AM, Beginner wrote:
Hi,
I am trying to extract the iso code and country name from a 3 column
table (taken from en.wikipedia.org) and have noticed a problem with
accented characters such as Ô.
Below is my script and a sample of the data I am using. When I run
the script
On 03/23/2007 04:59 PM, Matt Herzog wrote:
Hello All.
I can see why people hate this module but I can't seem to let go.
[...]
It's not really letting go if you use the File::Find::Rule module which
uses File::Find behind the scenes. I have a feeling that you'll like
File::Find::Rule.
--
On 03/22/2007 03:16 AM, lakshmi priya wrote:
Hi,
How do I redirect the warning messages from my perl script to a
different file? By default they are all getting printed on the terminal.
In addition to Jeff Pang's suggestion, read perldoc -f open. You can
redirect STDERR to a file:
On 03/20/2007 05:21 PM, Vladimir Lemberg wrote:
Hi All,
My script is calling a Win32 program with two arguments:
system ( $ARGV[0]\\program.exe, $File::Find::name, $ARGV[0]\\source);
I want to capture STDOUT and STDERR from the program to log file
system ( $ARGV[0]\\program.exe,
On 03/14/2007 05:37 AM, Umar Draz wrote:
HI dear members! I have a file called dbcon.pl into include directory.
#!/usr/local/bin/perl
use DBI;
# Database Username, Password and Driver settings
my $user=konsole;
my $pass=send;
my $host=localhost;
my $driver=mysql;
my $db=treat;
my $tnt=xyz;
#
On 03/14/2007 11:19 AM, louis fridkis wrote:
Why does Perl say 10.2 is 10.199
Here is example code and output:
#!/usr/bin/perl -w
$add = 10.2;
print $add\n;
printf $add\n;
printf (%40.35f\n, $add);
perl add1.pl
10.2
10.2
10.19928945726423989981413
If you have the
On 03/13/2007 07:44 PM, Hardly Armchair wrote:
Hello List,
I have a data structure containing a bunch of strings in different groups:
[...]
I want these sorted first alphabetically within the group, and then
according to the number of member in the group.
[...]
This is slightly more
On 02/23/2007 09:06 AM, Zembower, Kevin wrote:
Mumia, I don't think the problem is in sending the file out. When the
file is recorded on /tmp/, its size is zero. The files I'm uploading are
at least 1KB. Something's wrong with reading the file from the uploaded
filehandle, I believe. Your
On 02/23/2007 12:36 PM, Zembower, Kevin wrote:
I owe this list, and Mumia in particular, an apology. Apparently, my
script was working yesterday when I was asking for help. I'm guessing
that at some point, I made a change to the HTML input form and forgot to
refresh the copy in my browser. For
On 02/22/2007 12:58 PM, Zembower, Kevin wrote:
I'm having problems uploading a file with perl and CGI.pm. I have a form
that uses a script with CGI and MIME::Lite to email the contents of the
form and the file uploaded to an individual. I've written this section
so far:
[...]
On 02/22/2007 02:40 PM, Zembower, Kevin wrote:
-Original Message-
From: Mumia W. [mailto:[EMAIL PROTECTED]
Sent: Thursday, February 22, 2007 3:27 PM
To: Beginners List
Subject: Re: File uploading using CGI
On 02/22/2007 12:58 PM, Zembower, Kevin wrote:
I'm having problems uploading
On 02/21/2007 10:27 AM, RICHARD FERNANDEZ wrote:
Hi folks,
I'm working on a script in which I want to access NDBM files directly.
I'm using the unix aliases file(s) for testing, but I intend to use this
code for other projects as well.
I have the following files: aliases, aliases.dir, and
On 02/21/2007 03:49 PM, RICHARD FERNANDEZ wrote:
Probably rfernandez is not a valid key in the database file. Try this:
tie my %db, 'NDBM_File', 'aliases', O_RDWR, 0644;
while (my ($key, $value) = each %db) {
print $key = $value\n;
}
untie %db;
On my system, this
On 02/20/2007 10:41 AM, Moon, John wrote:
Looking for help installing modules to a local library...
http://search.cpan.org/~jhi/perl-5.8.0/pod/perlmodinstall.pod says to do
the install one way while README for the module gives other
instructions. CPAN says a) Decompress, b) Unpack, c) Build,
On 02/20/2007 04:17 PM, Moon, John wrote:
Thank you, Mumia W.
The following ran... I would have preferred to have installed at
~/cgi-bin/Library _not_ at
~/cgi-bin/Library/lib/perl5/site_perl/5.8.5... following is the results.
Now when I try to install Ajax it still says it can't find
Class
On 02/16/2007 10:27 PM, Mary Anderson wrote:
Hi all,
My perl-cgi application creates some temporary files and a temporary
table which I would like to clean up as I exit the program. I tried
writing a perl END block, but found that did not work. It appeared that
to the cgi interpreter
On 02/17/2007 06:46 PM, Mary Anderson wrote:
The documentation wasn't very clear.
Under mod_perl, the above will work only for Apache::Registry scripts.
Otherwise execution of the END block will be postponed until the process
terminates. If you write a handler in the Perl API use the
On 02/16/2007 12:00 PM, [EMAIL PROTECTED] wrote:
Greetings,
I have a CGI that receives some parameters, and after processing them
(it generates a file) it must be redirected to another CGI (external
domain) to process it.
What I want to do is similar to
On 02/16/2007 11:12 AM, siegfried wrote:
Can someone suggest where I would look to reinvent df with perl? The df
command enumerates all the drives and partitions and interrogates them for
the amount of disk space total, used and available. Is there an OS neutral
way to write this program? I hope
On 02/16/2007 07:58 AM, Doroshok Stanislav wrote:
hi all
I need output from system():
@rrd = (/usr/bin/rrdtool,graph,-,--title,hypergraph,);
$rezult = system(@rrd);
how can i get output?
p.s. i don't wont use `` and run shell;
thanks
The command perldoc -f open shows you how
On 02/16/2007 07:25 PM, Jeff Pang wrote:
The command perldoc -f open shows you how to do get the output from a
command without starting a shell.
Do you mean open a pipe? It still need to fork a child process for running the
external commands.
Read the safe pipe opens section of perldoc
On 02/12/2007 02:33 PM, Vladimir Lemberg wrote:
Hi,
I have a script, which suppose to find all *.xml files under the specified
directory then process them.
I'm facing the pattern match problem:
use strict;
use warnings;
use Win32;
use File::Find;
@ARGV = Win32::GetCwd() unless @ARGV;
my
On 02/12/2007 03:26 PM, Ana Saiz García wrote:
Hello
First of all, I apologize if this is not the right list to ask my question,
but as I am a perl beginner, I think it is the most suitable list for me
:o)
So here goes my question:
I have a main program which will call a subroutine, say S,
On 02/12/2007 04:17 PM, D. Bolliger wrote:
D. Bolliger am Montag, 12. Februar 2007 23:03:
Mumia W. am Montag, 12. Februar 2007 21:53:
On 02/12/2007 02:33 PM, Vladimir Lemberg wrote:
[snipped]
Mumia,
please excuse me for my inappropriate correction!
[...]
No problem. I'm glad I tested
On 02/06/2007 10:16 PM, Jm lists wrote:
Hello,
I have a XML file which needed to be posted to a remote site.
I have no idea on how to do it.Can you show me some useful
reference?Thanks.
If the perl documentation is properly installed, you will have the
perldoc utility. At a command
On 02/02/2007 02:25 PM, Romeo Theriault wrote:
[...]
my $smtp = Net::SMTP_auth-new('miranda.umfk.maine.edu');
$smtp-auth('LOGIN', 'user', 'password');
$smtp-mail($from);
$smtp-to($to);
$smtp-data();
$smtp-datasend(To: $to\n);
$smtp-datasend(Subject: $subject\n);
Try
On 02/01/2007 07:39 PM, Brad Cahoon wrote:
Hi again,
I have lots of files ( see my first post to this group :) )
they all have two lines simular to:
Ref.: 005803/11-SY (T45)Total Amount
Ref.: has a space after it here.
685.00
Lead: ARDA/DILAN/MISS
On 01/25/2007 05:36 PM, Wagner, David --- Senior Programmer Analyst ---
WGO wrote:
I currently have data for group1 which has x entries associated
with it. As I currently put out the email, the data is going down the
page. Well with the data being displayed, I thought why not have all
On 01/22/2007 04:17 PM, tom tom wrote:
Can I know how to pass parameters from the CRON job
e.g
cleanup folder and delta time in seconds and
thereafter retreive that from the perl.
My cleanup rountine currently hardcoded with these
values
[...]
Why not just make it a regular, non-CGI, Perl
On 01/21/2007 04:55 PM, tom tom wrote:
Hi,
In my mod_perl (Authentication module). I have global
variable defined as follows
use vars qw( $SESSION_CLEANUP_COUNTER);
$SESSION_CLEANUP_COUNTER=0;
my intention is to count no of times it is getting
executed by clients (no of hits). I am
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 =~ /^(\D*)(?=\d)(?!123)/;
so I don't need || between multiple look ahead assertions...
Sometimes, it's more rewarding to solve you're problem on your own.
You
On 01/18/2007 05:13 AM, Eugene Kosov wrote:
Hi, everyone!
First of all, I'm sorry if this isn't a right place for such a question.
I'm having troubles with concatenating 2 utf8 strings. The only
difference (if I dont miss something) is 1st one is hardcoded to the
script (see below) and the
On 01/18/2007 07:46 PM, Michael Alipio wrote:
Hi,
Suppose I have a hash:
my %hash = (dog = 'house', pig = 'barn', bird= 'cage');
Now I want to know if there is already a key with a 'house' value as I do not
want to create another key with the same value.
Is there any other faster way to do
On 01/15/2007 11:21 PM, Michael Alipio wrote:
Hi,
Ok, seems like a pet logs is not a good example.:-)
Let me revise my story:
I have a logfile which contains different clients firewall's logs.
Let's say the log file is: firewall.log
Now each line in the logfile has a $deviceid string that
On 01/16/2007 04:02 AM, Michael Alipio wrote:
- Original Message
From: Mumia W. [EMAIL PROTECTED]
To: Beginners List beginners@perl.org
Sent: Tuesday, January 16, 2007 3:13:38 PM
Subject: Re: Storing filehandles(for writing) in hashes doesn't work (Re: whilereach
my $variable
On 01/16/2007 10:18 PM, Lawrence Statton XE2/N1GAK wrote:
Omega 1911 wrote in part:
Did YOU assume that the OP knew about CPAN. I know when I had my first
interest in Perl, I had NO IDEA of who or what CPAN was, let alone that it
existed
Since the OPs question included, Is there a cpan
On 01/13/2007 12:43 PM, xavier mas wrote:
A Dissabte 13 Gener 2007 18:53, Xavier Noria va escriure:
On Jan 13, 2007, at 6:29 PM, xavier mas wrote:
hello list,
I am trying to find if an element in one primary file (transformed
to array)
is included in two other different secondary files
On 01/12/2007 11:29 AM, Beginner wrote:
On 12 Jan 2007 at 17:06, Rob Dixon wrote:
Hi Rob,
In the sample date below your'll see some addresses with DO NOT...
in. I can locate them easily enough but I am struggling to navigate
back up the DOM to access the code so I can record the code with
On 01/10/2007 02:48 PM, Slawomir Orlowski wrote:
Hello,
Thank for you suggestions and help. I surely appreciate it.
I don't think that is possible. Cookies are restricted to the domain of
the server that creates them. As you found out, you'll have to use a query
string (a GET parameter).
On 01/10/2007 01:35 AM, beast wrote:
[...]
It will only remove duplicate key.
Is this still acceptable in perl (its very ugly =(
[...]
This would remove duplicate lines:
use List::MoreUtils qw(uniq);
use File::Slurp;
my @list = uniq read_file 'rm_dup_lines.txt';
print $_ for
On 01/10/2007 12:22 PM, Beginner wrote:
[...]
This is the sequence I would like to change to a single space:
20a020a020a0
[...]
AFAIK, tr/// can't do this. Use s///,
s/[ \xA0]+/ /g;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On 01/10/2007 04:20 PM, Guerrero, Citlali (GE, Corporate, consultant) wrote:
Hi all :
Does anyone knows how to catch the error standard from a call to system?
I mean something like this:
use strict;
use warnings;
pritn Calling the second script : \n;
system(perl hi_all.pl)
exit;
if the
On 01/09/2007 12:49 AM, [EMAIL PROTECTED] wrote:
Hi,
I need to run a particular command cleartool des from a partiuclar
folder.
For example:
I need to get into directory m: cd \ Arun_Main and then run cleartool des
$temp .
I wrote the following code for this
foreach $temp(@vob2)
{
qx(m: cd
On 01/08/2007 12:53 AM, perl pra wrote:
Hi Guru,
I have a problem with reading xml file which has foriegn characters (like
plutôt) using xml::Simple.
I get xml read error.
Then I included encoding=iso8859-1 at the top of xml file.
I am able to read the xml file , but the characters are
On 01/04/2007 09:48 PM, beast wrote:
Hi all,
I have text file which has these following format:
username1:10.0.0.1
username2:10.0.0.3
Basically, it has username with at least 1 IP address.
I would like to parse log which contains IP address but might not
contains the username, ie:
On 12/31/2006 05:04 AM, Mathew Snyder wrote:
In the following snippet of code I'm getting the useless use of a private
variable in a void context error. It is at line 64 which is the closing brace
for the for loop.
for ($count; [...]
It's here, in the first instance of $count. $Count is
On 12/29/2006 12:22 AM, M. Lewis wrote:
[...]
I thought I'd prefer to have it listed more like this:
jelly -- strawberry
apple
grape
pear
[...]
So in the following snippet, I tried to add a \n onto the value of the
HoH.
for my $i ( keys %HoH ) {
%{$HoH{$i}} =
On 12/28/2006 01:42 AM, Madhur Kashyap wrote:
Hi there,
Have a look at these two different implementations. IMPL2 works somehow.
The
problem I am facing is that the glob $pat does not return any value in
IMPL1 but it returns in IMPL2. Can somebody tell what could be the problem.
[...]
Use
On 12/27/2006 08:17 AM, Goksie wrote:
Mumia W. wrote:
On 12/25/2006 11:51 AM, Goksie wrote:
[...]
If i run the script, the changes could not be effected bcos the files is
a readonly file.
I will be glad if someone can put me true
goksie
You probably want a mode of + to open the file read
On 12/25/2006 11:51 AM, Goksie wrote:
[...]
If i run the script, the changes could not be effected bcos the files is
a readonly file.
I will be glad if someone can put me true
goksie
You probably want a mode of + to open the file read-write.
perldoc -f open
--
To unsubscribe, e-mail:
On 12/21/2006 12:42 AM, Tom Smith wrote:
Mumia W. wrote:
use strict;
use warnings;
$_ = `id $ARGV[0]`;
s/.*?groups=// print @{[ /\((\w+)\)/g ]}\n;
I'm not trying to be argumentative or say that this is wrong... But
does anyone else agree with this? If so, why is this way better than
On 12/21/2006 02:59 AM, Chad Perrin wrote:
On Wed, Dec 20, 2006 at 10:47:25PM -0800, John W. Krahn wrote:
Mumia W. wrote:
On 12/20/2006 04:14 PM, Tom Smith wrote:
[...]
So is there a better way to do this, or perhaps a cleaner way?
use strict;
use warnings;
$_ = `id $ARGV[0]`;
s/.*?groups
On 12/21/2006 09:05 AM, Tom Smith wrote:
I try to avoid calling console commands because there tends to be
differences in some of the CLI utilities between distributions--that was
actually one of the first things I had considered doing, except with the
`groups` command.
You could limit
On 12/21/2006 10:53 PM, Mathew Snyder wrote:
I have a script which will determine which modules need to be installed for a
certain application. It will take all of the module names and iterate through
them installing each as such:
system perl -MCPAN -e 'install $module';
I'd rather do
On 12/20/2006 02:34 AM, chen li wrote:
Hi all,
I try to install a perl module called Inline::Ruby but
it fails. Here is the error information:
C:\Perl\local\Inline-Ruby-0.02perl Makefile.PL
Could not find the ruby interpreter on your PATH.
Stopping...
Any idea how to fix it?
Thanks,
Li
On 12/20/2006 07:48 AM, chen li wrote:
C:\Perl\local\Inline-Ruby-0.02perl Makefile.PL
Could not find the ruby interpreter on your PATH.
Stopping...
Yes. I have a Ruby interpreter installed and it works
fine for running Ruby scripts. But I am not sure why
it is not available on the system
On 12/19/2006 10:58 PM, Mathew Snyder wrote:
I have a script which runs WWW::Mechanize to obtain a page so it can be parsed
for email addresses. However, I can't recall how I'm supposed to use
HTML::TokeParser to get what I need. This is the pertinent part of the script:
...
my $data =
On 12/20/2006 04:14 PM, Tom Smith wrote:
[...]
So is there a better way to do this, or perhaps a cleaner way?
Thanks again for your help!
~ Tom
use strict;
use warnings;
$_ = `id $ARGV[0]`;
s/.*?groups=// print @{[ /\((\w+)\)/g ]}\n;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
On 12/19/2006 05:45 AM, Jack Daniels (Butch) wrote:
Having a heck of a time Windows server
Want to find all lines with .| at end of line
Also, how would I replace .| with |
My problem is when using \ to make | a regular character, it never works.
file contains lines in this format
joe|TK123
On 12/15/2006 09:44 AM, Lou Hernsen wrote:
I use the -e to check to see if a file is present
if (-e $Pics/$Game{Page}.jpg)
{
}
Question
I can get it to work looking for .pl and .gif but not .jpg
[...]
Read perldoc -f -e
-e tests if a file is executable.
Use -f to test if the file is
On 12/15/2006 11:00 AM, Mumia W. wrote:
On 12/15/2006 09:44 AM, Lou Hernsen wrote:
I use the -e to check to see if a file is present
if (-e $Pics/$Game{Page}.jpg)
{
}
Question
I can get it to work looking for .pl and .gif but not .jpg
[...]
Read perldoc -f -e
-e tests if a file
On 12/14/2006 06:24 AM, Gregory Machin wrote:
hi
the script will not work if I use $ARGV[0] but works 100% if I hard
code the $input variable;
what have i missed ?
#!/usr/bin/perl
# if your prgram has the string grep in the name or in the path
# this program won't work.
use strict;
use
On 12/12/2006 04:00 AM, Rinku Mahesh wrote:
Hi,
I've two arrays of same depth (let it be 6)
1st Array:- @unique {11 , 23, 44, 66, 900, 1009}
2nd Array:- @occ_count {2, 77, 22, 2, 77,29}
Here I'm looking for a sorting mechanism with the following conditions:-
a.
On 12/12/2006 06:35 AM, Mathew wrote:
Maybe this can get you started:
http://beta.nntp.perl.org/group/perl.datetime/2006/05/msg6342.html
Mathew
What is beta.nntp.perl.org ?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On 12/09/2006 04:32 PM, Lukky Perl wrote:
I'm trying to find a cell with a specific value. I keep getting the
warning:
Can't use an undefined value as a HASH reference. Here's the code:
[...]
Find({What=$pa})-{Row};
[...]
Even though $pa might be defined, its content might not be found
On 12/06/2006 11:51 PM, hOURS wrote:
Thanks for trying, but this right here is the heart of the matter. I'd be
using alarm to time a certain thing. It seems to me, any explanation of how
to do that, be it plain English or sample code has to incorporate that thing.
On 12/05/2006 08:03 PM, David Bear wrote:
I have tons of items to put in the head section of my html document. There
are multipl link rel statments.
Looking at the cgi docs I find this for making the head section:
print start_html(-title='Secrets of the Pyramids',
On 12/02/2006 06:22 AM, Sergio Escalada wrote:
Hi all! I would like to know if it's possible to make an array sorting with
a subroutine call.
Usually, a sort is made as, for example:
sort {$a = $b} @array;
But my intention is something like:
sort subroutine_call @array;
sub subroutine
{
On 12/01/2006 08:46 PM, Ravi Malghan wrote:
Hi: is there a limit on number of files that can be open within perl. I am
opening about 194 files and am seeing some weird behaviour. When i write to the
filehandles, I see it writes ok to some files and not to the others. But I
donot see any
On 12/01/2006 01:24 PM, David Bear wrote:
I would like to do something like (psuedo coded)
my $req = CGI-new();
my %params = $req-Vars;
if ndef %params {
%params = 'gets a hash time that i build'
}
The goal of course is to make sure that %params has some hash table
available even if the
On 12/01/2006 08:13 AM, Brent Clark wrote:
Hello world
I have this problem using perl shell to install cpan modules.
I keep getting this
Running make test
Can't test without successful make
Running make install
make had returned bad status, install seems impossible
I have tried removing
On 12/01/2006 02:01 PM, Dennis Bourn wrote:
Dennis Bourn wrote:
Im working on a perl script to add the IP addresses from spam to my
blocked list. Each quarentined email is kept in one directory, the IP
address of the sender is in the first line of the headers. Im using
O'Reilly's Learning
On 11/26/2006 11:19 AM, Grant wrote:
I'm on the Interchange mailing list (icdevgroup.org) and we've found a
problem with our Interchange::Link perl module for apache2. I don't
know perl myself, and I was wondering if anyone here might be able to
help fix it.
The problem is that the Interchange
On 11/25/2006 06:40 AM, perl pra wrote:
hi Gurus,
I have a problem to replace strings of file thru perl script.
Here is the problem in detail...
I have a text file some thing like this..
PROJ_FOLER=C:\Proj
PROJ_LOGS=C:\PROJ\LOGS
I have same line in config file some thing like this.
On 11/24/2006 05:37 PM, JupiterHost.Net wrote:
Tom Phoenix wrote:
On 11/24/06, JupiterHost.Net [EMAIL PROTECTED] wrote:
The trick is I can't seem to goto() return in
do_some_stuff_and_return(), I'm sure since its so deep down...
Are you saying that you want a subroutine that can make the
On 11/22/2006 02:44 AM, Mathew Snyder wrote:
In this line of code what is 'new' doing?
my $users = new RT::Users(RT::SystemUser);
Mathew
It's equivalent to saying this:
my $users j= RT::Users-new(RT::SystemUser);
Read the perlmod document:
perldoc perlmod
--
To unsubscribe, e-mail:
On 11/17/2006 01:22 AM, Gregory Machin wrote:
Hi
Hi Gregory Machin. You top-posted. Please don't do that. I corrected the
top-posing and made it a bottom-post.
I'm still not getting the result i require please could someone have a
quick look and see what i'm missing ...
the following code
On 11/17/2006 09:07 AM, Zembower, Kevin wrote:
I'm trying to send an HTML (boss' demand) using MIME::Lite. The program
I'm using is pasted in below my signature. When I comment out all the
'$msg-attach' lines, the body of the email message appears as HTML in
my Outlook email reader. As soon as I
On 11/15/2006 03:06 AM, Nigel Peck wrote:
Is there a way to get the name of the current sub?
So:
sub test_sub {
$subname = ???;
print $subname; # prints test_sub?
}
Took a look through Programming Perl and Googled it but couldn't find
the answer.
TIA
Nigel
$subname = (caller
On 11/14/2006 09:53 PM, Chris Parker wrote:
I couldn't find the answer while googling for a regexp to pull the ip
from my log files so here I am. I am trying to get the ip's (source and
destination) along with the ports for a summary. WFLOG doesnt cover my
firewall so I thought id try. Code
On 11/14/2006 06:11 AM, Dharshana Eswaran wrote:
Hi all,
I have perl programs with me and i wish to convert it into perl modules.
Can i know how to do the same?
Or can i know any links or documents which describes the same?
Thanks and Regards,
Dharshana
If you use ActiveState Perl on
On 11/09/2006 10:24 PM, R. Wajda wrote:
Hi all,
is there any way how to simplify this function:
sub h_escapes {
my ($index, $char, $output);
for($index=0; $indexlength($_[0]); $index++) {
$char = ord(substr($_[0], $index, 1));
if($char 0x20 || $char 0x7f) {
$output = $output .
On 11/10/2006 09:01 AM, Tony Heal wrote:
OK, the has to be an easy way to call one script OR another from within
another, but I would like suggestions, as this does not work because there
is no RegEx to put from here.
#!/usr/bin/perl
if ( -f '/usr/local/custom/backup.pl' ||
On 11/08/2006 09:00 PM, Bernard van de Koppel wrote:
Hi,
I am trying to filter out strings with odd characters in directories.
In filenames, only the names with alfabetical characters and the
charaters with graves like igrave (ì) are allowed.
sofar I tried something like
$string =~
On 11/09/2006 07:04 AM, Dharshana Eswaran wrote:
Rajeev,
Actually, i get data in hex bytes from a log file. I have to parse them or
analyze them according to some predefined rules or values.
For eg: a hex byte of 0xa4 is converted to binary as 10100100
Now, i have a file in which the values
On 11/09/2006 07:47 AM, Zielfelder, Robert wrote:
Greetings:
I have a sorting problem I need to solve but I'm not sure how to go
about it. I have an application that dumps a file with a format like
this:
19JAN2006.1503
03JAN2006.1647
19DEC2004.0530
24MAR2003.1115
As you may
On 11/04/2006 06:05 AM, Muttley Meen wrote:
On 11/3/06, Mumia W. [EMAIL PROTECTED] wrote:
Please bottom-post.
Why should a call to Create() on an object returned by Package2()
update the object $a ?
It shouldn't normally update the containing object, and it doesn't in
your program.
For your
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
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
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 dont well
On 11/02/2006 07:11 AM, Meir Yanovich wrote:
perl regexp error , I cant understand what is wrong
Hello all
I have simple perl regexp that is searching for pattern in string and
replace it with the same string + addition string
here is what I have :
Code:
my $rec = q| new
On 11/01/2006 12:04 AM, Sara wrote:
I am getting Month, Day and Year from Drop Downs of a form to convert given
values to Unix timestamp.
I am able to put values in all the variables below except for $wday $yday.
Any ideas as how I can get those with limited user input of month, day and year
On 11/01/2006 01:44 PM, jm wrote:
On 11/1/06, John W. Krahn [EMAIL PROTECTED] wrote:
Use a hash:
my %oob = (
state = 'IL',
lata = 732,
name = 'SomeName',
);
If you don't think that you need a hash then be aware that what you
are trying
to do is actually using a hash
On 10/31/2006 10:20 AM, C.R. wrote:
In article [EMAIL PROTECTED], [EMAIL PROTECTED] says...
You need to show us your code Chuck. Perl doesn't do that, in any situation that
I can think of. Try running this on its own:
my $s = '144 cm';
$s =~ s/(\d+ +cm)/bx;1$1ba/g;
print $s;
I get
bx;1144
On 10/31/2006 04:44 PM, Kathryn Bushley wrote:
Hi, I'm trying to do a substitution and am having trouble in that I am getting non-specific matches...I'd like to specify the regular expression to match any character to the left of $code and nothing or the end of the array element on the right of
On 10/28/2006 01:52 AM, perl pra wrote:
On 10/26/06, Mumia W. [EMAIL PROTECTED] wrote:
On 10/26/2006 05:47 AM, perl pra wrote:
hi ,
I want to pass a command argument to perl script with double quotes (
);
below is my scenario
my xml file is something like this ..
root
reff
On 10/27/2006 07:51 AM, Mihir Kamdar wrote:
hi,
I am capturing http transactions by using Net::PcapUtils module. I want to
do real time processing on the captured packets. Following is a snippet of
data that I am getting:
POST /vodexUi/CVodSchedularViewMgr .php HTTP/1.0^M
Host: 192.168.1.157^M
On 10/27/2006 11:29 AM, C.R. wrote:
Perl 5.6.1 on Solaris
While storing a value to a dbm file (hash file) I get this error:
ndbm store returned -1, errno 28, key 11000-120 at excond.pl line
313, INFILE line 331.
I think I may have reached the limit to the amount of data I can store
in a
101 - 200 of 377 matches
Mail list logo
