Chad Eldridge wrote:
>
Mathew wrote:
>>
Adriano Ferreira wrote:
>>>
On 2/2/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
I have a script which extracts email addresses from a web page, pushes
them into an array and then prints them out before asking if I wish to
perform the work on th
I usually try and use as few modules as possible as well, especially for
simple tasks. I would suggest something like this maybe...
Assuming %Skip is your hash of users to skip over...
my ($user) = ($email =~ /[EMAIL PROTECTED]/);
unless ($Skip{$user}) {
push(@emails,$email);
}
Hope this he
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");
On 2/2/2007 3:25 PM, Romeo Theriault wrote:
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend($file);
$smtp->dataend();
Does $file begin with an empty line?
If not, you're not sep
Romeo Theriault wrote:
> Hello, I'm trying to send a variable in a email using Net::SMTP. For some
> reason no matter what I do the contents of the variable are not sent. I
> know the variable holds the information I want because if I do a
>
> print $file;
>
> the contents are printed. Here is th
Jay Savage wrote:
On 2/2/07, Hoffmann <[EMAIL PROTECTED]> wrote:
Dear All,
I am a Perl beginners, and I have heard about Minimal Perl. Could you,
please, let me know if that would be a good option for a beginners start
learning/practice Perl? Or that 'flavour' of the language would work
better
On 2/2/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
I have a script which extracts email addresses from a web page, pushes them into
an array and then prints them out before asking if I wish to perform the work on
them that is required.
What I would like to do is compare the username portion of
On 2/2/07, Hoffmann <[EMAIL PROTECTED]> wrote:
Dear All,
I am a Perl beginners, and I have heard about Minimal Perl. Could you,
please, let me know if that would be a good option for a beginners start
learning/practice Perl? Or that 'flavour' of the language would work
better for more advanced p
Hello, I'm trying to send a variable in a email using Net::SMTP. For some
reason no matter what I do the contents of the variable are not sent. I know
the variable holds the information I want because if I do a
print $file;
the contents are printed. Here is the program. Thanks for any help.
#!/
On 2/2/07, Hoffmann <[EMAIL PROTECTED]> wrote:
Dear All,
I am a Perl beginners, and I have heard about Minimal Perl. Could you,
please, let me know if that would be a good option for a beginners start
learning/practice Perl? Or that 'flavour' of the language would work
better for more advanced p
Gauthier, Dave wrote:
> Getting unwanted list elements when using split with regex. Here's an
> example
>
> $str = "abc=In";
> @arr = split(/[a-zA-Z0-9]/,$str);
> foreach $a (@arr)
> {print "$a\n";}
>
> I get...
>
> <>
> <>
> <>
> <=>
>
> If I change "abc=In" to "abcdef=In", I get 6 u
Dear All,
I am a Perl beginners, and I have heard about Minimal Perl. Could you,
please, let me know if that would be a good option for a beginners start
learning/practice Perl? Or that 'flavour' of the language would work
better for more advanced programmers.
Thanks!
Hoffmann
--
To unsubsc
On 2/2/07, Gauthier, Dave <[EMAIL PROTECTED]> wrote:
Getting unwanted list elements when using split with regex. Here's an
example
$str = "abc=In";
@arr = split(/[a-zA-Z0-9]/,$str);
[snip]
If I change "abc=In" to "abcdef=In", I get 6 unwanetd null elements (one
per char before the "=")
On 2/2/07, Gauthier, Dave <[EMAIL PROTECTED]> wrote:
Getting unwanted list elements when using split with regex. Here's an
example
@arr = split(/[a-zA-Z0-9]/,$str);
Your separator is a single character. Did you want to split on runs of
one or more single characters?
/[a-zA-Z0-9]+/
Getting unwanted list elements when using split with regex. Here's an
example
$str = "abc=In";
@arr = split(/[a-zA-Z0-9]/,$str);
foreach $a (@arr)
{print "$a\n";}
I get...
<>
<>
<>
<=>
If I change "abc=In" to "abcdef=In", I get 6 unwanetd null elements (one
per char
On 2/2/07, Mathew <[EMAIL PROTECTED]> wrote:
I'm hesitant to bring another module into this. I don't want to make it
any more complicated than it needs to be.
Actually, using the module makes your work less complicated, not more.
Cheers!
--Tom Phoenix
Stonehenge Perl Training
--
To unsubsc
I ended working with PDF::Create, is just enough for what i need.
Regards
- Mensaje Original -
De: "Beginner" <[EMAIL PROTECTED]>
Para: "Patricio A. Bruna" <[EMAIL PROTECTED]>, beginners@perl.org
Enviados: viernes 2 de febrero de 2007 09H40 (GMT-0400) America/Santiago
Asunto: Re: Printing
On 2/2/07, oryann9 <[EMAIL PROTECTED]> wrote:
I am aware of the bit | operator
Perl does have a bitwise operator whose name is the vertical pipe
character; but the one under discussion is the regular expression
operator whose name is the vertical pipe character. Both uses treat
the vertical ba
On 2/2/07, Gauthier, Dave <[EMAIL PROTECTED]> wrote:
print WR "2";
What, you didn't put a newline on the end of the line? Your client is
reading lines, isn't it?
goto top;
Excuse me; I feel unwell. Search the net for "goto considered harmful"
-- or at least, consider it harmful.
Cheers!
Irfan,
*$?*
The status returned by the last pipe close, backtick (`` ) command,
successful call to wait() or waitpid(), or from the system() operator. This
is just the 16-bit status word returned by the wait() system call (or else
is made up to look like it). Thus, the exit value of the subproce
Hi Irfan,
You can capture the exit status in the following way.
system("command");
$ExitStatus = $? >>8;
Regards,
Rajeev kilaru
On 2/2/07, Sayed, Irfan (Irfan) <[EMAIL PROTECTED]> wrote:
Hi All,
I am executing following script. but even if the command execution fails
it prints as success ex
Hi All,
I am executing following script. but even if the command execution fails
it prints as success exit status = 0
can anybody please help
Regards
Irfan.
use strict;
use warnings;
my $CT = '/usr/atria/bin/cleartool';
print " Creating the view for VB \n";
my $cmd = "$CT mkview -tag vb_te
Hi:
I'm trying to run 2 processes in parallel on suse. The approach I'm
taking is to use open2 as in numerous examples I've found via google.
But, unlike the examples I've found, the parallel process I'm trying to
run with is the execution of another perl script, not a system command.
The test
I'm hesitant to bring another module into this. I don't want to make it
any more complicated than it needs to be.
Mathew
Adriano Ferreira wrote:
> On 2/2/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
>> I have a script which extracts email addresses from a web page, pushes
>> them into
>> an arra
Jay Savage <[EMAIL PROTECTED]> wrote:On 2/1/07, oryann9 wrote:
> oryann9 wrote: Hello Perl list,
>
[snip]
>
> I was able to figure it out. The solution was /s.
> my $regexp = qr/.*\x3a5101.*/s;
>
> However, when I put multiple port numbers in the regexp it does NOT work.
> I want to store them
On 1 Feb 2007 at 9:30, Patricio A. Bruna wrote:
> Hi,
> Anyone knows a easier method, that guest and try, to print an invoice in a
> prepinted paper, i need to fill the gaps.
> The size of the page is Letter.
>
I am not sure if this is easier but I use PDF::API2 but I think it's
the same pr
On 2/2/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
I have a script which extracts email addresses from a web page, pushes them into
an array and then prints them out before asking if I wish to perform the work on
them that is required.
What I would like to do is compare the username portion of
27 matches
Mail list logo
