Bende calisiyor bir sorun yok gibi kodda...Tam olarak ne hata aliyorsunuz?
perl -e "$n=\"1...@fax\"; $n=~s/\...@fax//; print $n;" 123 2010/6/22 Bedreddin SAHBAZ <b...@sahbaz.name.tr> > Merhabalar, > > Hylafax'ı Qmail ile mail to fax gateway olarak kullanmak için > http://sourceforge.net/projects/qmail2hylafax/ adresinde bulunan Perl ile > yazılmış uygulamayı kullanmak istiyorum. Script içeriği şöyle; > > #!/usr/bin/perl > # > # name: gateway-qmail2fax.pl > # rev : 2.0 > # date : 10-05-2003 > # Lic. : GPL > # Author: mcmax(c) ESS Srl -Vi - italy > # URL : http://www.mcmax.info/qmailaddon > # Email : mc...@lisp.it > # Note: > # see README INSTALL PACKAGE Qmail maildrop vpopmail > # connect documentation > # > # History: > # Update with pdftops [10-11-2006] 2.0 Stable version > # Base version[17-07-2004] 1.1 Stable version > # Base version[10-05-2003] 1.0a > # > # Feature: > # Se TODO List > # > # > $locpath = "./"; > $nomehost = "fax.esssrl.it"; > $data = time(); > > $fout = "$locpath$data.$$.$nomehost"; > # > #-----------solution to problem of secuity----------mcmax 04/2005-SuSE--- > # > $path = $ENV{'PATH'}; # $path now tainted > > $ENV{'PATH'} = '/bin:/usr/bin'; > delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; > > $path = $ENV{'PATH'}; # $path now NOT tainted > > #system "cat $_ > ./lastfax"; > system "cat $_ > $fout"; # security action on system > system "cp $fout ./lastfax"; # copi di manipolazione dati > > # > # extract number fax > # > system "cat $fout | /usr/local/bin/reformail -x to: > ./numfax"; > # > # extraxt attach infomation (position 1.2 normal il first PDF attachment) > # > system "cat $fout | /usr/local/bin/reformime -i > ./faxinfo"; > # > # extract PDF document into local file > # > system "cat $fout | /usr/local/bin/reformime -e -s 1.2 > ./filePDF"; > # > # convert PDF on PS format with pdftops for correct size (update to rev > 2.0) > # > system "pdftops ./filePDF"; > # > # read number fax and clear from unused char > # from <fax-0444-778...@fax> > # to clear: 0444-778...@fax > # > $numtel = `cat $fout | /usr/local/bin/reformail -x to:`; > $numtel =~ s/<fax-/ /gi; > $numtel =~ s/\...@fax>/ /gi; > # > # Send document to HylaFax Server > # > system "/usr/bin/sendfax -v -n -t 6 -s a4 ./filePDF.ps -d $numtel 2>&1 > > /dev/null"; > # > # remove old file if need > # > system "rm $fout"; > > Script basitçe standart girişten emaili alıp işliyor. Sorun yaşadığım > kısım; > > $numtel = `cat $fout | /usr/local/bin/reformail -x to:`; > $numtel =~ s/\...@fax/ /; > > Standart girişten alınan mailin headerından reformail ile to kısmı > alınıyor ki bu değer 4445...@fax gibi bir değer. Yani > telefon_numar...@domain yapısında bir değer geliyor. Benim yapmak > istediğim @fax kısmını bu değerden çıkarıp kalan kısım olan 4445566 yani > telefon numarasını $numtel değişkenine aktarmak. Yukarıdaki kodu > kullandığımda ne yazık ki sonuca ulaşamıyorum. Perl versiyonum > perl-5.10.1_1. Nerede hata yapıyorum acaba? > > Saygılarımla.. > > _______________________________________________ > Linux-programlama mailing list > Linux-programlama@liste.linux.org.tr > https://liste.linux.org.tr/mailman/listinfo/linux-programlama > Liste kurallari: http://liste.linux.org.tr/kurallar.php >
_______________________________________________ Linux-programlama mailing list Linux-programlama@liste.linux.org.tr https://liste.linux.org.tr/mailman/listinfo/linux-programlama Liste kurallari: http://liste.linux.org.tr/kurallar.php
