Perl

#mode operand Create truncate#read #write > Yes#append >> Yes Case 1:throw A exception if you cannot open the file: Copy Code code as follows: Use strict; Use warnings; My $filename = ' data.txt '; Open (My $fh, ' Or die

This post consists of: http://xinpure.com/perl-warning-setting-locale-failed/After switching the Mac system to English, the following error occurred using the git command:perl: warning: Setting locale failed.perl: warning: Please check that your

Maintenance function of 1.Unix systemAs we said earlier, Perl can be used as an alternative to traditional UNIX system maintenance tools, and in this context it can operate on text files, especially configuration files (which also remember how to

1 effectsBatch Modify file name2 usageRename [switches|transforms] [files]3 parameters-H,--help help.--man View the manual.-0,--null allows the file name to be read from the standard input.-F,--force the file that already exists when the renamed

. Represents any single character and does not match the linefeed.* Is A quantizer, indicating that the previous content appears 0 to multiple times.+ It is also a quantizer, indicating that the previous content appears one to multiple times.

Most of the people who started using Perl in Windows use ActivePerl. But for those familiar with Perl programming in Linux, strawberry Perl will become more used to it. After all, the update of the ActivePerl ppm package is too slow. If you need to

Assume that I have a sub-process, which is defined as follows: Sub test_sub {Print "test ";} I have another variable: $ Test = "test_sub "; The value of $ test is the name of the face process. Since I know the sub-process name through $ test,

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> # Find the input file list and return an array Sub Arr_argv_file { My   @ Arr_fname   =   @_ ; My   @ Arr_file_list ;

Fcntl filehandle, function, scalar Implements the fcntl (2) function. You'll probably have to say Use Fcntl; First to get the correct constant definitions. Argument processing and value returned work just likeIOCTLBelow. For example:

Copy From http://www.lwolf.cn/blog/article/program/perl-ini.html I have previously written a C # parsing INI file.ArticleAt that time, I used Perl to parse INI, and then I found a ready-made Resolution on the Internet.CodeIniparser.Assume that the

Perl file handling: open, read, write and close files #======================== opening files Solution 1: Opening a file in Perl open FILE, "filename.txt" or die $!; # read open FILEHANDLE, MODE, EXPR The available modes are the following:

#! /Usr/bin/perl# File: Data. pl# Author: Darkstar# Date: 2014/08/26Use strict;Use warnings;Use diagnostics;Use Data: dumper;My % config;While (){Next if/^ \ s *#/;Next unless/\ s * (\ W +) \ s * = \ s * (\ W +) \ s */;My ($ key, $ value) = ($1, $2 )

Processing of scalar or constantI. Objective and result storage:The target content of the default operation is in the default variable $ _, and the operation result is stored in $ _. If the operation succeeds $1, $2, $3, $ @ the variable also saves

Originally published on Netease blog 13:39:42 The exercise in chapter 5th of learning Perl is somewhat unexpected. Although Chapter 5th describes basic input and output, it takes me some time to review the exercises in the previous chapters. Oh, I

The first Perl script was written by a colleague. After this function is implemented in Java, no exception is thrown out in the middle. After Perl is used, it is normal. My colleagues helped me write the code. I modified and debugged it myself, so I

Http://hi.baidu.com/jackywdx/blog/item/35bb33daedb414dfb7fd4867.html LWP: Simple Function 1. How to use this module in Perl? Use LWP: Simple; 2. How to get a page content? My $ content = get ('HTTP: // www.yahoo.com.cn ');

1. Task To implement some mechanical word segmentation algorithms, we prepare to use the word segmentation vocabulary of the "National Language Commission corpus". The word segmentation file downloaded online is an Excel file. The task in this

Copy codeThe Code is as follows :#! /Bin/perl Use strict; Use warnings; My % movies;My $ film;My % reverse_result;My $ director;My @ data; % Movies =('The shining' => 'kubrick ','Ten Commandments '=> 'demille ','Goonies '=> 'spielberg ',); # Output

My first perl script for the production environment, although not very good, has also taken a solid stepThe leader has a task to send a batch of IP addresses to the list and ping each machine. If no response is received, an email notification is

Copy codeThe Code is as follows :#! /Bin/perl Print "please input some lines, then press Ctrl + Z. \ n "; Chomp (@ s = ); Print "1234567890" x 3. "\ n"; # serves as a yardstick for output results. Foreach $ s (@ s) { Printf "% 20s \ n", $ s; # The