用perl传输数据到指定ftp

最新推荐文章于 2020-07-07 15:48:25 发布
最新推荐文章于 2020-07-07 15:48:25 发布
阅读量652 收藏
点赞数
文章标签： perl informix ant sql 360
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/daibo518/article/details/2297220
版权
 

# !/usr/local/bin/perl -w

use  strict;
 use  warnings;

 use  DBI;
 use  Data :: Dumper;
 use  Net :: FTP;

 my   $filepath = " ./lbsdata " ;
 print   " unload begins. " ;
 my   $title   =   " #PROVINCE    CITY    SITE_ID    MICRO?    LAC CELL_ID BSIC    BCCH    X_deg   X_min   X_sec   Y_deg   Y_min   Y_sec   BORE    HEIGHT(m)   EIRP    BA_IND  NUM_BA  BA_1    BA_2    BA_3    BA_4    BA_5    BA_6    BA_7    BA_8    BA_9    BA_10   BA_11   BA_12   BA_13   BA_14   BA_15   BA_16   BA_17   BA_18   BA_19   BA_20   BA_21   BA_22   BA_23   BA_24   BA_25   BA_26   BA_27   BA_28   BA_29   BA_30   BA_31   BA_32   BA_IND  NUM_BA  BA_1    BA_2    BA_3    BA_4    BA_5    BA_6    BA_7    BA_8    BA_9    BA_10   BA_11   BA_12   BA_13   BA_14   BA_15   BA_16   BA_17   BA_18   BA_19   BA_20   BA_21   BA_22   BA_23   BA_24   BA_25   BA_26   BA_27   BA_28   BA_29   BA_30   BA_31   BA_32 " ;
    $title   =~  s / s +/ t / g; 

 my   $currentTime   =   & getTimestamp( 1 );
    $currentTime   =   substr   $currentTime ,   0 ,   8 ;
 print   " date: $currentTime " ;

 my   $filePath   =   ' /usr/local/apache2/htdocs/irms/BOCO.IRMS/local/bin/lbsdata ' ;
 my   $ftpfilePath   =   ' /data/bsdata ' ;
 my   $ftpfilePath2   =   ' /opt/edis/lbs ' ;

 print   " file name: $filePath/sc$currentTime.txt " ;
 open  FILE ,   " >$filePath/sc$currentTime.txt "  or  die   " open file failed: $! " ;
 print  FILE  $title ,   " " ;

 print   " connect to database: " ;
 my   $dbh   =   & dbconnect();
 my   $sql   =  q / select   ' sichuan '  
 -- b . toll_code[ 2 , 5 ] , 区号没有找到对应
 -- CITY    838
, s . AREA_CODE 
 , b . BTS_ID 
 , decode(c . CELL_TYPE , 1 , ' Y ' , 2 , ' N ' , ' Y ' ) 
 , c . LAC AS LAC
 , c . CI AS CELL_ID
 , NVL(c . NC_CODE || c . CC_CODE , 50 ) AS BSIC
 , c . BCCH AS BCCH
 , substring(c . LONGITUDE from  1   for   8 ) AS X_deg
 , ' 0 '  as X_min
 , ' 0 '  as X_sec
 , substring(c . LATITUDE from  1   for   8 ) as Y_deg
 , ' 0 '  as Y_min
 , ' 0 '  as Y_sec
 , c . ANT_AZIMUTH as BORE
 , trunc(c . ANT_HEIGHT) AS HEIGHT
 , c . TRX_POWER AS EIRP
 --, c . BA_IND_IDEL AS BA_IND
 , 1  as BA_IND
 , c . BA_NUM_IDEL AS NUM_BA
 , c . BA_IDLE1 AS BA1
 , c . BA_IDLE2 AS BA2
 , c . BA_IDLE3 AS BA3
 , c . BA_IDLE4 AS BA4
 , c . BA_IDLE5 AS BA5
 , c . BA_IDLE6 AS BA6
 , c . BA_IDLE7 AS BA7
 , c . BA_IDLE8 AS BA8
 , c . BA_IDLE9 AS BA9
 , c . BA_IDLE10 AS BA10
 , c . BA_IDLE11 AS BA11
 , c . BA_IDLE12 AS BA12
 , c . BA_IDLE13 AS BA13
 , c . BA_IDLE14 AS BA14
 , c . BA_IDLE15 AS BA15
 , c . BA_IDLE16 AS BA16
 , c . BA_IDLE17 AS BA17
 , c . BA_IDLE18 AS BA18
 , c . BA_IDLE19 AS BA19
 , c . BA_IDLE20 AS BA20
 , c . BA_IDLE21 AS BA21
 , c . BA_IDLE22 AS BA22
 , c . BA_IDLE23 AS BA23
 , c . BA_IDLE24 AS BA24
 , c . BA_IDLE25 AS BA25
 , c . BA_IDLE26 AS BA26
 , c . BA_IDLE27 AS BA27
 , c . BA_IDLE28 AS BA28
 , c . BA_IDLE29 AS BA29
 , c . BA_IDLE30 AS BA30
 , c . BA_IDLE31 AS BA31
 , c . BA_IDLE32 AS BA32
 --, c . BA_IND_BUSY AS BA_IND
 , 0  as BA_IND
 , c . BA_NUM_IDEL AS NUM_BA
 , c . BA_IDLE1 AS BA1
 , c . BA_IDLE2 AS BA2
 , c . BA_IDLE3 AS BA3
 , c . BA_IDLE4 AS BA4
 , c . BA_IDLE5 AS BA5
 , c . BA_IDLE6 AS BA6
 , c . BA_IDLE7 AS BA7
 , c . BA_IDLE8 AS BA8
 , c . BA_IDLE9 AS BA9
 , c . BA_IDLE10 AS BA10
 , c . BA_IDLE11 AS BA11
 , c . BA_IDLE12 AS BA12
 , c . BA_IDLE13 AS BA13
 , c . BA_IDLE14 AS BA14
 , c . BA_IDLE15 AS BA15
 , c . BA_IDLE16 AS BA16
 , c . BA_IDLE17 AS BA17
 , c . BA_IDLE18 AS BA18
 , c . BA_IDLE19 AS BA19
 , c . BA_IDLE20 AS BA20
 , c . BA_IDLE21 AS BA21
 , c . BA_IDLE22 AS BA22
 , c . BA_IDLE23 AS BA23
 , c . BA_IDLE24 AS BA24
 , c . BA_IDLE25 AS BA25
 , c . BA_IDLE26 AS BA26
 , c . BA_IDLE27 AS BA27
 , c . BA_IDLE28 AS BA28
 , c . BA_IDLE29 AS BA29
 , c . BA_IDLE30 AS BA30
 , c . BA_IDLE31 AS BA31
 , c . BA_IDLE32 AS BA32

from RADIO_CELL_G c , OUTER RADIO_BTS_G b , OUTER SWITCH_MSC s
where c . BTS_ID  =  b . cuid
and c . LONGITUDE is not null 
and c . LATITUDE is not null
 -- and c . confirmed = 1  
and c . BTS_ID is not null 
and c . BTS_ID  <> ''
and c . MSC_ID  =  s . CUID / ;

 print   " sql: $sql " ;

 #  is_micro_cell
my   $ADJ_CELL_POSITION          =   19 ;  #  position of Ba_idle1
my   $ANT_DIRCT_ANGLE_POSITION   =   14 ;
 my   $IS_MICRO_POSITION          =   3 ;
 # #############################################
##BSIC_POSITION modify 2007-12-18
##############################################
my   $BSIC_POSITION   =   6 ;
 #  default 50
#my @DEFAUT_50_POSITION       = ( 6, 7, 14, 15, 16 );

# longitude, latitude
my   $LONGITUDE_POSITION         =   8 ;
 my   $LATITUDE_POSITION          =   11 ;

 my   $sth   =   $dbh -> prepare(  $sql  ) 
    or  die   " prepare failed: $sql " ;
    $sth -> execute();

 my   @data ;
 my   $line   =   0 ;
 while (  @data   =   $sth -> fetchrow_array() ) {
     $line ++ ;
 #     print "$line unload. ";
     foreach (  @data  ) {  #  remove tail white spaces
         if (  defined   $_  ) {
            s / s + $ // ;
         }
    }
     @data   =   & convertData(  @data  );
     print  FILE  join (  " " ,   @data  ) ,   " " ;
    
 #     if( $line == 7214 ) {
#        print Dumper @data;
#        last;
#    }
#    exit;
}
 print   " total $line unloaded. " ;

 print   " unload finish. " ;
 close  FILE;
 $sth -> finish();
 $dbh -> disconnect();

 print   " transfer data via FTP... " ;
 & ftpPut();
 & ftpPut2();


 exit ;

 sub  dbconnect {
     my   $dbh ;
    
     my   $dsn   =   ' dbi:Informix:tnms_sc@edisdb1 ' ;
     my   $username   =   ' informix ' ;
     my   $password   =   ' boco#informix ' ;

     print   " dsn: $dsn " ;
     eval  {  $dbh   =  DBI -> connect (  $dsn ,   $username ,   $password ,  { AutoCommit       =>   1 ,  
                                                           RaiseError       =>   1 ,  
                                                           odbc_cursortype  =>   2 }  ); 
    };
    
     if  ($@) {
         print   "  can't connect to DSN: $dsn. " .   " $DBI::errstr, $@ " ;
         die   "  can't connect to DSN: $dsn. " .   " $DBI::errstr " ;
    }
    
     return   $dbh ;
}

 sub  isNull {
     if (  defined   $_ [ 0 ] and  $_ [ 0 ]  !~   /^ s * $ /  ) {
         return   0 ;
    }  else  {
         return   1 ;
    }
}

 sub  convertData {
     my   @data   =   @_ ;
    
     if ( not  @data  ) {
         print   " data(line) is null " ;
         exit ;
    }
    
 #     print Dumper @data;
    
#    $data[0] = 'sichuan';

#    is_micro_cell
     if (  & isNull( $data [ $ADJ_CELL_POSITION ]) or  & isNull( $data [ $ANT_DIRCT_ANGLE_POSITION ]) ) {
 #         print "$data[$ADJ_CELL_POSITION], $data[$ANT_DIRCT_ANGLE_POSITION] ";
#        print "Y ";
         $data [ $IS_MICRO_POSITION ]  =   ' Y ' ;
    }  else  {
 #         print "$data[$ADJ_CELL_POSITION], $data[$ANT_DIRCT_ANGLE_POSITION] ";
#        print "N ";
         $data [ $IS_MICRO_POSITION ]  =   ' N ' ;
    }
     # #################################

    ####ant_dirct_angle modify###
    #my $ant_dirct_angle = $data[14] + 0;
    #if ($ant_dirct_angle < 0) {
    #    my $new_antdirctangle = 360 - abs($ant_dirct_angle);
    #    $data[14] = $new_antdirctangle;
    #}
    
##########
#判断  0 < BSIC < 63 modify 2007-12-18

my   $vlaue = $data [ 6 ]  +   0 ; # string to int

   
     if  ( $vlaue   <   0   or   $vlaue    >   63  ) {
         $data [ 6 ]  =   " 50 " ;
    }
 # 判断BSIC为空

if  ( & isNull( $data [ 6 ]) ) {
     $data [ 6 ]  =   50 ;
}
 # 判断BCCH为空

if  ( & isNull( $data [ 7 ]) ) {
     $data [ 7 ]  =   50 ;
}
 # 判断x_min
if  ( & isNull( $data [ 9 ])) {
     $data [ 9 ]  =   0 ;
}
 # 判断x_sec

if  ( & isNull( $data [ 10 ])) {
     $data [ 10 ]  =   0 ;
}
 # set y_min = 0
if  ( & isNull( $data [ 12 ])) {
     $data [ 12 ]  =   0 ;
}
 # set y_sec = 0
if  ( & isNull( $data [ 13 ])) {
     $data [ 13 ]  =   0 ;
}
 # 判断BORE范围0-----360

if  ( $data [ 14 ] lt  0  or  $data [ 14 ] gt  360   or  & isNull( $data [ 14 ])) {
     $data [ 14 ]  =   0 ;
}
 # 判断HEIGHT范围>0
my   $value15   =   $data [ 15 ] + 0 ;
 if  ( $value15   <   0  or  $value15 = 0  or  & isNull( $data [ 15 ]) ) {
     $data [ 15 ]  =   50 ;
}
 $data [ 15 ]  =   int ( $value15 )  +   1 ;
 # 判断EIRP范围>0
my   $value16   =   $data [ 16 ] + 0 ;
 $data [ 16 ]  =   int ( $value16 )  +   1 ;
 if  ( $value16   <=   0  ) {
     $data [ 16 ]  =   50 ;
}
 if  ( & isNull( $data [ 16 ])) {
     $data [ 16 ]  =   50 ;
}
 if  ( $value16   >   0 ) {
     $data [ 16 ]  =   int ( $value16 ) + 1 ;
    
}
 # 判断NUM_BA范围0--32
my   $value18   =   $data [ 18 ] + 0 ;
 if  ( $value18   <   0  or  $value18   >   32  or  & isNull( $data [ 18 ])  ) {
     $data [ 18 ]  =   0 ;
}
 # 判断NUM_BA范围0--32
my   $value52   =   $data [ 52 ] + 0 ;
 if  ( $value52   <   0  or  $value52   >   32   ) {
     $data [ 52 ]  =   0 ;
}
 if  (  & isNull( $data [ 52 ]) ) {
     $data [ 52 ]  =   0 ;
}
 # ##################################

#    exit;

    #$data[14] =~ s/_$//;
#    if( $data[14] =~ /^-/ ) {
#        $data[14] = 0;
#    }
#    default 50
#    foreach my $position ( @DEFAUT_50_POSITION ) {
#        if( &isNull($data[$position]) ) {
#            $data[$position] = 50;
#        }
#    }
    

#    latitude, longitude
#    foreach( ($LONGITUDE_POSITION, $LATITUDE_POSITION) ) {
#        if( $data[$_] =~ /^d+.d{6}/ ) {
#            $data[$_] = $&;
#        }
#    }
            
#    0.00000E+00 
#    for( my $i = 0; $i < scalar @data; $i++ ) {
#        if( $i > 17 and &isNull($data[$i]) ) {
#            #$data[$i] = '33237_10242';
#            $data[$i] = '    ';#modify 2007-12-18
#        } elsif( not &isNull($data[$i]) and $data[$i] =~ /^0.00000E+00$/ ) {
#            $data[$i] = 0;
#        }
#    }
    
#    print Dumper @data;
    
     return   @data ;
}

 sub  getTimestamp () {
    my   $format   =   shift ;

    my  (  $sec ,   $min ,   $hour ,   $day ,   $mon ,   $year  )  =   localtime (  time  );
    $mon   +=   1 ;
    $year   +=   1900 ;
    my   $time ;
    if (  defined   $format  ) {
       if  (  $format   ==   1  ) {
 #    if ( defined $format ) {
         $time   =   sprintf   " %04d%02d%02d%02d%02d%02d " , $year , $mon , $day , $hour , $min , $sec ;
      }  else  {
           $time   =   sprintf   " %04d-%02d-%02d %02d:%02d:%02d " , $year , $mon , $day , $hour , $min , $sec ;
    }
   }  else  {
       $time   =   sprintf   " %04d-%02d-%02d %02d:%02d:%02d " , $year , $mon , $day , $hour , $min , $sec ;
   }
    $time ;
}


 # #################################################################
# put filesvia FTP
# Interface: ftpPut();
# Return: None
###################################################################  
sub  ftpPut() {  
     my   $count    =   0 ; # 用来记录失败的次数
     my   $line ;        # 用来按照行读取日志文件
     my   $host     =   ' 10.105.228.91 ' ;
     my   $usr      =   ' bsdata ' ;
     my   $passwd   =   ' bsdata!23 ' ;
     print   " ftp 10.105.228.91 begins; " ;
     my   $ftp   =  Net :: FTP -> new(  $host ,  Debug  => 0  );
        $ftp -> login(  $usr ,   $passwd  ) or  die   " connect failed: $! " ;
    
 #     $filePath/sc$currentTime.txt;
        $ftp -> put(  " $filePath/sc$currentTime.txt " ,   " $ftpfilePath/sc$currentTime.txt "  ) #  save to task data directory 
         or  die   " cannot put the file sc$currentTime.txt " ;
 # ###################################################################
#try FTP again
          print   " now read log by line... " ;
          my   $logfile   =   " putlbs.log " ;
     open  MYFILE , $logfile   ||   die   " cant open $logfile  " ;
     while  ( $line   =   < MYFILE > ) {
         if  ( $line   =~   / cannot / ) {
 #             print "$line ";
             $count ++ ;
        }
        
    
    }
     close  MYFILE;
     print   " read finish... " ;
     print   " 失败的次数$count " ;
     if  ( $count   >   0   &&   $count   <   4 ) {
         print   " try ftp again... " ;
         & ftpPut();
         & ftpPut2();

    } else {
         print   " ftp 10.105.228.91 finish " ;
    }
 # ###################################################################
     print   " put sc$currentTime.txt successfully. " ;
    
     return ; 
}

 sub  ftpPut2() {  
     my   $host     =   ' 10.101.9.48 ' ;
     my   $usr      =   ' edis ' ;
     my   $passwd   =   ' boco#edis ' ;
     print   " ftp to 10.101.9.48 begins; " ;
     my   $ftp   =  Net :: FTP -> new(  $host ,  Debug  => 0  );
        $ftp -> login(  $usr ,   $passwd  ) or  die   " connect failed: $! " ;
    
 #     $filePath/sc$currentTime.txt;
        $ftp -> put(  " $filePath/sc$currentTime.txt " ,   " $ftpfilePath2/sc$currentTime.txt "  ) #  save to task data directory 
         or  die   " cannot put the file sc$currentTime.txt " ;
     print   " put to 10.101.9.48 sc$currentTime.txt successfully. " ;
    
     return ; 
}
daibo518
关注
PERL 连接FTP实现文件上传下载
weixin_42129663的博客
03-05 1319
这里使用的Net::FTP模块，一般安装的perl都会自带该模块，查看perl是否安装某模块使用命令：perldoc Net::FTP，如果出现文档说明，则表示该模块已安装，如果出现：No documentation found for 则表明该模块未安装，perl安装模块可以参考该文章：[添加链接描述](https://blog.csdn.net/czz1141979570/article/d...
perl脚本（压缩文件夹下文件）上传服务器
03-30
利用perl写一脚本压缩本地文件夹上传到服务器，具体， #!/usr/bin/perl -w use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); use File::Path; use File::Copy; my $zip = Archive::Zip->new(); use strict; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( time - 604800 );#一周前的时间 my $yyyymmdd = sprintf( "ddd", $year + 1900, $mon + 1, $mday ); my $get_name = 'D:/Notepad'; # 可以改为带参数运行$ARGV[0] my $topath = 'O:/etest/mu'; #$ARGV[1] my @data; opendir( TEMP, "$get_name" ) || die "$!";#读文件夹测试时间 while ( my $file = readdir TEMP ) { if ( $file !~ /^\.\.?$/ ) { chomp $file; if ( -d "$get_name/$file" ) { if ( time_change( ( stat("$get_name/$file") )[9] ) < $yyyymmdd ) { push @data, $file; } } } } closedir(TEMP); #一下是每个文件夹压缩，测试上传成功删除本地文件夹和zip foreach my $j (@data) { $zip = Archive::Zip->new(); $zip->addTree( "$get_name/$j", "$j", sub { /.*/ } ); my $status = $zip->writeToFileNamed("$get_name/$j.zip"); if ( $status == AZ_OK ) { copy( "$get_name/$j.zip", "$topath/$j.zip" ); if ( -e "$topath/$j.zip" ) { rmtree("$get_name/$j"); unlink("$get_name/$j.zip"); } else { unlink("$get_name/$j.zip"); } } } sub time_change { my $tt = shift; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime($tt); my $ymd = sprintf( "ddd", $year + 1900, $mon + 1, $mday ); }
[Perl多线程]自动上传FTP文件的多线程扩展
web开发
01-03 139
&lt;iframe align="top" marginwidth="0" marginheight="0" src="http://www.zealware.com/csdnblog01.html" frameborder="0" width="728" scrolling="no" height="90"&gt;&lt;
一个用FTP批量上传文件的perl脚本，支持目录上传
moxnet的专栏
12-06 1930
有时候需要在字符界面下上传文件，尤其是自动上传。本脚本可以自动判断要上传的是文件还是目录，如果是文件直接上传，如果是目录则递归上传。自己觉得，写的十分的不优雅，比较Ugly...代码：  1 #!/usr/bin/perl -w  2  3 # Procedure Name: ftpupload.pl  4 # Author        : Felix New ( felix
转： Perl--- 用Net::FTP来上传下载文件
我为编程狂,我为外语狂
02-20 1615
Perl:用Net::FTP来上传下载文件本文详细出处参考：http://liucheng.name/852/ Perl中，使用模块Net::FTP来使用FTP服务，一般的使用步骤如下：使用Net::FTP的new方法来创建一个新的FTP对象。 使用login方法登录到FTP服务器。 使用cwd方法来切换目录。 使用get方法来获取文件。 使用put方法来上传文件。 使用quit方
ftp_ftp数据下载_
10-03
FTP（File Transfer Protocol）是一种广泛使用的网络协议，用于在互联网上进行文件传输。它允许用户从远程服务器上下载文件或上传文件到服务器，是IT领域中数据交换的基础工具。本教程将详细介绍如何通过FTP实现数据...
FTP Synch:用于Perl的FTP同步脚本-开源
04-25
这个脚本对于那些需要定期更新或备份远程服务器文件的用户来说非常实用，例如网站管理员或者需要在多台服务器之间共享数据的开发者。 Perl是一种强大的文本处理语言，因其灵活性和广泛的库支持而被广泛应用于系统...
如何使用Perl脚本实现下载服务器端数据到客户端
05-22
这些路径用于指定待下载或上传文件的具体位置，确保数据传输的准确性和效率。 #### 3. 时间戳与文件过滤 脚本中还包含了时间戳的获取和文件过滤逻辑，通过`strftime`函数获取当前的分钟、小时、日期、月份和年份，...
ftp传输脚本.zip
11-11
FTP（File Transfer Protocol）是一种广泛使用的网络协议，用于在互联网上进行文件传输。FTP脚本则是预先编写好的一系列FTP命令，用于自动化执行批量文件上传、下载或管理任务。在这个名为"ftp传输脚本.zip"的压缩包...
perl实现ftp文件上传下载自动化
weixin_39430223的博客
07-07 439
在很多情况下，我们需要从远处服务器上下载当天或者昨天生成的日志文件，来查看一些我们需要的东西或者备份。 如果采用了ftp，那么我们应该建立自动化的ftp方式，来方便我们的工作，下面我们将使用perl语言编写的，当然也可以用shell。 利用了perl的模块：Net::FTP。 #!/usr/bin/perl use Net::FTP; my (sec,sec,sec,min,hour,hour,hour,mday,mon,mon,mon,year,wday,wday,wday,yday,$isdst)=lo
Perl实现FTP上传，达到分布式文件同步的功能
龙遥的世界
11-11 5097
使用到Perl脚本。以使在几台Linux上同步各文件。 代码如下：
Perl的FTP-----get文件
zhangxinrun的专栏
07-09 3304
<br />在Perl中，使用模块Net::FTP来使用FTP服务，<br />一般的使用步骤如下：<br />1. 使用Net::FTP的new方法来创建一个新的FTP对象。<br />2. 使用login方法登录到FTP服务器。<br />3. 使用cwd方法来切换目录。<br />4. 使用get方法来获取文件。<br />5. 使用put方法来上传文件。<br />6. 使用quit方法退出。<br />下面是linux下perl编写的ftp程序连接非21端口的例子：<br />[root@loca
Perl对FTP的上传和下载
No. Liu
06-26 3019
下面是 FTP上传和下载的pl代码，上传下载用get/put来获取。 use net::ftp; my $username = "liuweichuanusrname"; my $password = "liuweichuanpassword"; my $remotefile = "test.txt"; my $localfile = "a.txt"; my $remotefilename
perl--DBI 模块中提取数据的fetch方法汇总（三）
高锦的博客
03-03 5835
perl--DBI::mysql下十种fetch数据的区别以及返回数据结构
Perl脚本自动化FTP文件同步
在IT领域中，FTP（File Transfer Protocol）是一种标准协议，用于在网络上进行文件传输。"ftp同步文件"这一主题主要关注如何利用Perl编程语言实现自动化文件同步功能，以提高效率并减少手动操作的工作量。Perl以其...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值