perl×Ô¶¯ftpµÄ·½·¨£¨Linux°æ±¾,Net::FTP£©
--ÕâÀïËùÓеÄperl¼¼ÊõÎÊÌâ¶¼ÊÇÎÒÆ½³£´¦ÀíÊý¾ÝµÄʱºòÒªÓõ½µÄ£¬¿ÉÄܲ»ÊǺÜÇ¿µÄ³ÌÐò£¬µ«ÊÇÏ£ÍûÄܺÍÈȰ®perlµÄͬ־£¬Ò»Æð·ÖÏí...
ÔںܶàÇé¿öÏ£¬ÎÒÃÇÐèÒª´ÓÔ¶´¦·þÎñÆ÷ÉÏÏÂÔØµ±Ìì»òÕß×òÌìÉú³ÉµÄÈÕÖ¾Îļþ£¬À´²é¿´Ò»Ð©ÎÒÃÇÐèÒªµÄ¶«Î÷»òÕß±¸·Ý¡£
Èç¹û²ÉÓÃÁËftp£¬ÄÇôÎÒÃÇÓ¦¸Ã½¨Á¢×Ô¶¯»¯µÄftp·½Ê½£¬À´·½±ãÎÒÃǵŤ×÷£¬ÏÂÃæÎÒÃǽ«Ê¹ÓÃperlÓïÑÔ±àдµÄ£¬µ±È»Ò²¿ÉÒÔÓÃshell¡£
ÀûÓÃÁËperlµÄÄ£¿é£ºNet::FTP¡£
#!/usr/bin/perl
use Net::FTP;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$year=$year+1900; #ÏÔʾΪµ±Ç°Äê·Ý
$mon=$mon+1; #ÏÔʾΪµ±Ç°Ô·Ý
$mon = "0".$mon if ($mon < 10); #ÏÔʾÔ·ÝΪ 01,02µÄ¸ñʽ
$sum="$year-$mon-$mday"; #ÏÔʾʱ¼ä Ϊ 2008-12-22 ÕâÑùµÄ¸ñʽ
$ftp = Net::FTP->new("hostname(IPµØÖ·)", Debug =>1);
$ftp->login('user(Óû§Ãû)','passwd(ÃÜÂë)');
$ftp->binary;
$ftp->cwd("path(·¾¶)");
$ftp->get("$sum-filename(ÎļþÃû)") #±ÈÈç 2008-12-22_text.txt
or die "$!";
$ftp->quit;
±£´æºó¡£¸øÎļþ¼ÓÉÏÖ´ÐС£ÀûÓà chmodÃüÁî¡£(ÎÒÃÇÔÝʱ°ÑÖ´ÐÐÎļþ½Ð×ö Ftp.pl)
ÔÚÀ´ÉèÖÃÀýÐÐÐÔÃüÁî ÀûÓÃcrontabÃüÁî¡£
±ÈÈç ÄãÏëÔçÉÏ5µã°ë¿ªÊ¼Ö´ÐÐÏÂÔØ¡£Ôò¼ÓÈë
30 05 * * * perl Ftp.pl
±£´æ¡£Ôò³ÌÐò¾Í¿ªÊ¼×Ô¶¯»¯ftpÁË¡£
Ïà¹ØÎĵµ£º
£¨L2CAPÐÒé¼ò½é£¬L2CAPÔÚBlueZÖеÄʵÏÖÒÔ¼°L2CAP±à³Ì½Ó¿Ú£©
Ò»£ºL2CAPÐÒé¼ò½é£º
Logical Link Control and Adaptation Protocol(L2CAP)
Âß¼Á¬½Ó¿ØÖƺÍÊÊÅäÐÒé (L2CAP) ΪÉϲãÐÒéÌá¹©ÃæÏòÁ¬½ÓºÍÎÞÁ¬½ÓµÄÊý¾Ý·þÎñ£¬²¢Ìṩ¶àÐÒ鹦ÄܺͷָîÖØ×é²Ù×÷¡£L2CAP ³äÐíÉϲãÐÒéºÍÓ¦ÓÃÈí¼þ´«ÊäºÍ½ÓÊÕ×î´ó³¤¶ÈΪ 64K µÄ L2CAP Ê ......
/*
kmalloc can apply 128KB memory only. This func support any continous memory allocate more than 2MB.
*/
#include <linux/kernel.h>
#include <linux/init.h>
#include <linux/module.h>
#include <linux/kallsyms.h>
#define KMEM_PAGES &nb ......
<!--
/* Font Definitions */
@font-face
{font-family:ËÎÌå;
panose-1:2 1 6 0 3 1 1 1 1 1;
mso-font-alt:SimSun;
mso-font-charset:134;
mso-generic-font-family:auto;
mso-font-pitch:variable;
mso-font-signature:3 135135232 16 0 262145 0;}
@font-face
{font-family:"\@ËÎÌå" ......
µã»÷²Ëµ¥“ÐéÄâ»ú”--Install VMware Tools
ÔÚred hat×ÀÃæÓÒ»÷konsole
ÊäÈëÃüÁcd/media
ls
ÒªÏÈË«»÷VMware ToolsÔÙÊäÈëÃüÁîÖ±µ½³öÏÖVMware Toolsi
ÔÙÊäÈëÃüÁcd VM*
&nb ......