On Tuesday 22 August 2006 05:32, Owen Cook wrote:
I am trying to get email addresses out of a Sylpheed address book. The
output of Dumper is;
$VAR1 = {
'attribute-list' = [
{}
],
'first-name' = '',
On 08/21/2006 11:32 PM, Owen Cook wrote:
I am trying to get email addresses out of a Sylpheed address book. The
output of Dumper is;
$VAR1 = {
'attribute-list' = [
{}
],
'first-name' = '',
'uid' =
On Tue, 22 Aug 2006 09:13:47 +0100
Gary Stainburn [EMAIL PROTECTED] wrote:
On Tuesday 22 August 2006 05:32, Owen Cook wrote:
I am trying to get email addresses out of a Sylpheed address book. The
output of Dumper is;
$VAR1 = {
'attribute-list' = [
Hi All,
I am trying to declare variables(hash ref) dynamically in a loop
I wanna use the name of hash ref as the value of string.
For eg:
my $i=0;
foreach my $k ( sort keys %$headers) {
$$i={}; creating hash ref with the value
of $i i,e
On 8/21/06, chen li wrote:
Dear all,
I read a file into an array reference. I want to pass
it as an argument when create the new object from
Math::MatrixReal. But when I read the usage of this
module I can't find how. Does anyone there give me a
hand?
Thanks,
Li
Here are the code I use:
my
Neetee Pawa wrote:
: I wanna use the name of hash ref as the value of string.
That sounds like a really bad idea. A more common approach
would probably use the name of the key and set each @row item to
that. What do you want the data structure to look like when the
loop is done? Don't
JupiterHost.Net wrote:
Say a module has 3 functions foo, bar, and baz and is able to autoload
do_\w+.
In @EXPORT_OK can you put soem commonly used AUTOLOADed methods and have
them exported?
our @EXPORT_OK = qw(foo bar baz do_this do_that);
or is this not possible?
I tried it this
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Monday, August 21, 2006 5:49 PM
To: Perl Beginners
Subject: Re: grab first item in every file
Brian Volk wrote:
Hi All~
Hello,
How can I grab the first item in every file and include in the first
Apparently I can no longer send email to this list
from my work account because of:
The following message to beginners@perl.org was
undeliverable.
The reason for the problem:
5.1.0 - Unknown address error 550-'Mail from
cardinal.com rejected because it does not accept
bounces. This violates RFC
On 8/22/06, John W. Krahn [EMAIL PROTECTED] wrote:
Mazhar wrote:
Dear Frndz,
Hello,
I am writing the below code and i am facing a problem in chomp (its an
HP UX Box)
Code
#!/usr/bin/perl
use strict;
use warnings;
my
On 8/22/06, Mazhar [EMAIL PROTECTED] wrote:
From the output i see the first character is missing in the output..
That could be caused by something erasing the first character after
it's output to your screen. Send the output to a file, inspect the
file (with 'hexdump -c', perhaps), and see
Hi all,
Just a quick question: what is the line code for an
empty line using regular expression in Perl?
Thanks,
Li
__
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe,
On Aug 22, 2006, at 5:36 PM, chen li wrote:
Just a quick question: what is the line code for an
empty line using regular expression in Perl?
Empty lines match /^$/, blank lines do not match /\S/.
-- fxn
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
Mazhar schreef:
I tried with your input above but i still get one character at the
beginning missing..
As said, it is probably not missing, but just overwritten on your
screen,
by the space in your print.
#!/usr/bin/perl
use strict ;
use warnings ;
my $fn = $ARGV[0] ;
open my $fh,
Brian Volk wrote:
my ( $job, $truck );
while ( ) {
( $job ) = $ARGV =~ /(\d+)/ if $. == 1;
$truck = $1 if /\A\$(\d+)/;
# $job and $truck are working great!!
# next unless the next line ends w/ .pdf Correct?
next unless /\A((.+)\.pdf)\z/;
Sorry, I forgot
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Tuesday, August 22, 2006 1:42 PM
To: Perl Beginners
Subject: Re: grab first item in every file
Brian Volk wrote:
my ( $job, $truck );
while ( ) {
( $job ) = $ARGV =~ /(\d+)/ if $. == 1;
Howdy,
Being a C/XS newbie (but perl oldie) I want to use some of the SVN::Ra
goodies but can't seem to get over a certain hump, any input is appreciated!
Assuming $sra is an SVN::Ra object and I have valid numeric $start_rev
and $end_rev
a) what do I pass to $sra-do_diff() (not sure what
Hi all,
I used to do this on UNIX scripts ...
#!/usr/bin/ksh
vowels=a e i o u
for letter in $vowels
do
echo $letter
done
How do I do the same in Perl?
Is it possible to do this in Perl without having to put vowels into an array and
use foreach, i.e., using only a FOR-LOOP, but not
my @vowels = (a,b,c,d);
my $letter;
foreach $letter (@vowels)
{
print $letter\n;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Hi all
Can anyone please explain how to connect to oracle database server using perl
script which is in separate linux server. Please note that currently I am using
putty to connect to linux server for perl scripting and we have the Oracle
database on a windows server. I have tried using
20 matches
Mail list logo