Perl

We sometimes execute a script because some of the programs in the script are suspended and timed out, which affects our judgment of the next step. Random we have to set the timeout for functions and processes so that he does not respond after a

#!/opt/perl/bin/perl-w Use strict; Use DIGEST::MD5 QW (MD5 md5_hex md5_base64); #校验文件函数Sub Calc_md5_hex () {My ($file _name, $ctx, $MD 5);($file _name) = @_;Open (FileHandle, $file _name) or die "Can ' t open/' $file _name/': $!";$ctx = digest::md5->

Read the document: After HTTP://SEARCH.CPAN.ORG/~GAAS/DIGEST-MD5-2.39/MD5.PM, Very useful Chapter paragraph: This is useful if calculating checksum for files: Use DIGEST::MD5; My $file = Shift | | "/ETC/PASSWD"; Open (FILE, $file)

Use base is object-oriented programming, used to describe the "base class", in fact, plainly,Use base somemodule;is equivalent to a combination of the following two sentences:begin{Use Somemodule ();Push @ISA, QW (Somemodule);}You can also use base

The length of the Perl array and the number of elements $ #数组名---represents the subscript of the last element in the array, which equals the number of elements minus 1. The @ array name---Represents the number of elements in the array. $ scalar

It is convenient to read and write Excel files in Perl.CodeFor future reference. To read and write Excel components, you must install the following commands: Perl-mcpan-e shell-> install Spreadsheet: writeexcelPerl-mcpan-e shell-> install

Scope is the valid range and visible range of variables. variables are valid only in scope; In Perl, data scopes are classified into global scopes, lexical scopes, and dynamic scopes. In PE rl5, variables and variable scopes can be declared using

######################### 1831 ############## ################ Use 5.010; chomp (my $ ord = ); chomp (my $ change = ); say $ change; say $ ord; while (<>) { eval "TR/$ ord/$ change/"; Print; } ######################### 1854 #######

For some strings, the input must be in a specific format. sprintf can be used for convenient processing, and no additional processing is required. The usage of sprintf in Perl is as follows: Sprintf format, list   For example: $ Result =

one-read XML 1) XML instance Linux us Mac us Windows

Perl Unicode conversion Overview: 1. Determine the encoding method of the Input Source2. The input source is UTF-8 encoded.A. encode: _ utf8_on ($ Str); Enable utf8 flag.The input source is not UTF-8 encoded.A. $ string = decode (encoding, $

1. Perl array (1): 1) initialize the array @ array = ("stringa", "stringb", "stringc "); 2) Print $ array [-1]; # output the stringc with the index (-1 + 3) % 3 = 2 3) dynamic growth $ array [4] = "stringd"; # Although $ array [3] is not used

#! /Usr/bin/perl-W Use strict; Use lwp;Use http: Request: Common QW (Post get );Use http: cookies;Use lwp: useragent;Use lwp: simple;Use URI: URL; My $ UA = lwp: useragent-> new;$ UA-> agent ("Mozilla 1.503 Windows XP ");$ UA-> cookie_jar (http:

In order to select a suitable scripting language for learning, I checked a lot about Perl, Python, Ruby, and JavaScript today, but I found that people in various camps are touching their favorite languages, however, it is not controversial that

What is a closure? "This is a notion Out Of The LISP world that says if you define an anonymous function in a particle lexical context, it pretends to run in that context even when it's called outside of the context. "[2 ]. In the object-oriented

Sub checkmd5 (){My ($ md5val, $ scan_file) = @_;If ($ md5val !~ /[0-9a-f] {32}/I) {die "invalid MD5 value./N ";}If (! -E $ scan_file) {print "No updatex file exist./N"; Return-1 ;}Print "/n >>>>>>>>>> >>>>>/n ";Print "check file:/t". $ scan_file.

This task counts the top 500 entries in a week. Data source: from the Oracle database. Requirement: generate an Excel file and send an email to the relevant person. Because it was the first time that I was engaged in such a task (writing scripts on

Use a subroutine to remove the spaces at the beginning and end of each line read from the file. The print Value of the sub function is no longer blank, but the returned value is printed with spaces. The Code is as follows: While () { & Trim ($

Recently, I had a program to automatically capture data from some BT websites and post it to my own forum. It worked better after a few months of trial, now the source code is published for reference by Perl enthusiasts. QQ is 2637663 and we welcome

Sorry, I saw the email in Gmail and then replied to the email directly. Then ...... "This is an automatic notification email. do not reply to this email directly ." Er ...... Paste it here.   Yes. What I am sending now is what I have. This part is