[LINUX:25649] Re: perl de nasil

From: sgulsuner@hekim.net
Date: Wed 21 Feb 2001 - 03:35:32 EET

• Next message: Umit Kepoglu: "[LINUX:25650] mysql 3.23.33 ve php3"
• Previous message: Doruk Fisek: "[LINUX:25648] mysql 3.22 -> 3.23"

Dediginizi denedim ama olmadi
  yardimlarinizi bekliyorum

  At 23:29 19.02.2001 +0200, you wrote:
> > open (tarih,"date +%e%b%y|");
> > $oku=<tarih>;
> > open (YAZ,"|wget www.yenisafak.com.tr/nilicak.html
  -O $oku,nilicak.html");
> > print YAZ "$yaz\n";
>
>$file = $oku . "nilicak.htm";
>open (YAZ,"|wget www.yenisafak.com.tr/nilicak.html -O
  $file);

use LWP::Simple;
$yaz = get 'http://www.linux.org.tr/';
($a,$b) = (localtime(time))[6, 3];
$page = $a.$b."nilicak.html";
open (YAZ, ">./$page");
print YAZ $yaz;
close (YAZ);

LWP varsa yukaridaki sekilde daha rahat olabilir. LWP nin
ve localtime in manuellerine bakarsaniz tam olarak istedigniz
sekilde olur.

--
Suleyman Gulsuner
Dokuz Eylul Universitesi
TIp Fakultesi
Inciralti/IZMIR
                         Love& Respect& Linux
                                   }\/\/{
                                   |    |
                                   (.)(.)
                                   | C  |)
                                   (___ |
                                     )__|
                                     /  \\
                                    /    \\
 
 Listeden  cikmak icin: 
 	 unsub  linux 
 mesajini  listeci@bilkent.edu.tr  adresine  gonderiniz.
   Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin. 
 Listeci  arayuzu: http://listweb.bilkent.edu.tr/yardim/bilkent/linux.html
 Liste arsivinin adresi:  http://listweb.bilkent.edu.tr/ 

• Next message: Umit Kepoglu: "[LINUX:25650] mysql 3.23.33 ve php3"
• Previous message: Doruk Fisek: "[LINUX:25648] mysql 3.22 -> 3.23"