Perl学习

1. use?Date::Format;
   
2. print time2str("%Y%m%d-%T"time);

1. use Date;
   
2. use Date;
   
3. use strict;
   
4. 
   
5. 
   
6. my $start=shift;
   
7. my $end;
   
8. my $add_seconds;
   
9. my $output_format;
   
10. 
    
11. my $time_length=length $;
    
12. if?$time_length eq 13?{
    
13. ????#loop?hour
    
14. ????$add_seconds=3600;
    
15. ????$output_format="%Y-%m-%d %H";
    
16. }elsif$time_length eq 10loop?day
    
17. ????$add_seconds=3600?*?24"%Y-%m-%d"}else{
    
18. ????die?"Wrong input format:nloop day: YYYY-mm-ddnloop hour: YYYY-mm-dd-HH"}
    
19. 
    
20. my $start_in_UTC=str2time$;
    
21. my $end_in_UTC$end;
    
22. die?"Wrong,$start later than $end"?if $start_in_UTC?gt?$end_in_UTC;
    
23. 
    
24. my @all;
    
25. 
    
26. while?$start_in_UTC le $end_in_UTC{
    
27. ????my $this_time=time2str"$output_format"$start_in_UTC;
    
28. ????push @all$this_time;
    
29. ????$start_in_UTC=$start_in_UTC?+?$add_seconds}
    
30. 
    
31. map?{print?""$_" "}?@all;

Open the file in update mode ("+<"),read the whole file into an array of lines,change the array,then rewrite the file and truncate it to its current seek pointer.

?

1. use Term::ANSIColor qw(:constants);
2. print RED,"Danger,Will Robinson!n",RESET;

1. system ("echo @")

1. @args=("echo","@");
2. system(@args);

1. $a='@';
2. system("echo $a");

1. #@ _MODULE_INITIAL_
2. package Cookbook;
3. # Cookbook.pm - library file with utility method for connecting to MySQL
4. # via Perl DBI module
5. use strict;
6. use warnings;
7. use DBI;
8. my $db_name = "cookbook";
9. my $host_name = "localhost";
10. my $user_name = "cbuser";
11. my $password = "cbpass";
12. my $port_num = undef;
13. my $socket_file = undef;
14. # Establish a connection to the cookbook database,returning a database
15. # handle. Raise an exception if the connection cannot be established.
16. sub connect
17. {
18. my $dsn = "DBI:mysql:host=$host_name";
19. my %conn_attrs = (PrintError => 0,RaiseError => 1,AutoCommit => 1);
20. $dsn .= ";database=$db_name" if defined $db_name;
21. $dsn .= ";mysql_socket=$socket_file" if defined $socket_file;
22. $dsn .= ";port=$port_num" if defined $port_num;
23. return (DBI->connect ($dsn,$user_name,$password,%conn_attrs));
24. }
25. #@ _MODULE_INITIAL_
26. #@ _MODULE_END_
27. 1; # return true
28. #@ _MODULE_END_

1. if^d+D$)
   
2. 改为
   
3. (m{) #匹配数字
   
4. ???????$ ? #匹配非数字
   
5. ???}xms)

1. ?{1.)?#ip
   
2. ????????s*?-?s?-?#nothing
   
3. ????????s*?[*]?#time
   
4. ????????s*?"GETs /(?:w)+/www/delivery/ta.php?trackerid=(d+)(D*[dD]*)?#url
   
5. ????????s* HTTP/1.[01]"?#proto
   
6. ????????s*?d+?s d+?#status byte
   
7. ????????s"(?:.*?)"?#refer
   
8. ????????s#agent
   
9. ????????s"([A-Z0-9]{16,21})"$?#guid
   
10. ?????}xms{

1. url~m{http/
   
2. ??????????????????????????(
   
3. ??????????????????????????s]+
   
4. ??????????????????????????:com|net|org|gov|cc|biz|info|cn|tv)
   
5. ??????????????????????????.cn|.hk)
   
6. ????????????????????{
   
7. ????????????????????????print?"$1n";
   
8. ????????????????}
   
9. ??elsif/
   
10. ???????????????????????????
    
11. ??????????????????????????S}