> November 1, 2005
>
> THanks
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Romero
www.factufacil.com.mx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
F
t: Re: The Perl Cookbook
> (1) We will never finish the book.
> (2) No man who uses EMACS is deserving of love.
> (3) I recommend coq au vi.
> tom
> EOF
> close(SENDMAIL);
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Romero
www.factufacil.com.mx
Sorry, some correction for my own example
old
my $data = $dbh->selectall_arrayref("SELECT field1, field2 FROM table");
new
my $data = $dbh->selectall_arrayref("SELECT field1, field2 FROM
table",{Slice=>{}});
On Thu, Jul 3, 2008 at 9:52 AM, David Romero <[EMAIL
lly i wanted to do not just writing , it should be APPEND at each
> time when that perl scripts runs.
>
> Can some body help me , if you all can provide me a sample or a example
> would be a great help
>
> Many thanks
> Luke
>
>
> Send instant messages to your online friends http://uk.messenger.yahoo.com
--
David Romero
www.factufacil.com.mx
On Thu, Jun 26, 2008 at 4:21 PM, Aruna Goke <[EMAIL PROTECTED]> wrote:
> David Romero wrote:
>>
>> use a regular expression
>>
>> my $email = 'user!dominio.com';
>> $email =~ s/!/@/g;
>> ###Result [EMAIL PROTECTED]
>>
>> http://ww
t;$sendee =~ s/from:\+(\d+)\]/$1/;
>$sendee = "[EMAIL PROTECTED]";
>$msg = $sms[8];
>$msg = (split/:/, $msg)[-1];
>$msg =~ s/(\w+)\s?\]/$1/;
> # i need only sender and $msg
>($mailreci, $mailsubj, $mailmsg) = (split/,/, $msg, 3)[0..2];
>
>print "To: $mailreci Subject: $mailsubj Message: $mailmsg sender :
> $sendee\n";
>
> }
>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Romero
www.factufacil.com.mx
HTML file to be displayed
>> in the mail when the mail is received. In other words, the HTML file
>> becomes the content of the mail.
>>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Romero
www.factufacil.com.mx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
uot;can't open file";
open (DESTINATION,'newfile.txt') or die "can't open file";
while(){
my ($col1, $col2, $col3, $col4, $col5) = split(/[\s\t]/,$_);
print DESTINATION "$col4$col5";
}
close DESTINATION;
close FILE;
>
> Fadl
> Fadhl M
$to_id,
> Subject => $subject,
> Type=> 'multipart/mixed',
> );
>
> $msg->send();
>
> I am not sure how to make the $filename which is the HTML file passed
> to the script so it gets sent as part of the body of the e-mail.
>
> Any help woul
; Main();
>
> This looks like a C programming habit. It's more conventional in Perl to put
> all
> the main code at the top of the program and not wrap it as a subroutine.
>
>>
>> Well the problem is i recibe the next output on my terminal when i execute
>> this script
>>
>> *Unsuccessful stat on filename containing newline at
>> /usr/local/share/perl/5.8.8/MIME/Lite.pm line 1549.
>>
>> I dont understand what does mean ... :s
>>
>> when first, only i cant attach files using a variable, this is my problem,
>> if i put a file with the correct name and path, no problem, but my problem
>> is in this directory this file changes with the time
>>
>> I hope somebody helps me, and if you have some tips, all of them are welcome
>> !!!
>> *
>
> We can't help you much further as you haven't posted the code that's causing
> you
> problems. Try implementing the suggestions above and see where that leads you.
>
> Rob
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
David Romero
www.factufacil.com.mx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
mping the 10 lines, how do I ignore the lines in the
> file, and know I'm going the right distance ?
>
> Thanks
> Pat
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
--
David Rome
11 matches
Mail list logo