Perl读取文本格式化后写入文本

最新推荐文章于 2024-07-04 19:13:58 发布

Stainky

最新推荐文章于 2024-07-04 19:13:58 发布

阅读量987

点赞数

分类专栏： Perl 文章标签： perl open source function utf8

本文链接：https://blog.csdn.net/lanyu_lee/article/details/17301027

版权

Perl 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

demo：

#!/usr/bin/perl -w
#Perl pragma to restrict unsafe constructs
use strict;
use utf8;

#main function
sub main {
    #get params
    # @_  
    # Within a subroutine the array @_ contains the parameters passed to that subroutine. 
    # Inside a subroutine, @_ is the default array for the array operators push, pop, shift, and unshift.
	# set source file location
    my $s_file = "example_file.txt";
	# set destinate file location
    my $d_file = "file_1.txt";
	# notice and exit if $s_file or $d_file is null
    die "must have source file and destination file!\n" unless $s_file && $d_file;

    #open file for read, FO file handler
    if ( open(FO, $s_file) ) {
        if ( open(FOO,">$d_file") ) {
            #do while loop 
            while(<FO>) {
                # $_ general variables 
                my $line = $_;
                # remove head and tail blank
                $line =~ s{^\s|\s$}{}g;
                # use , split line
                # split /PATTERN/,EXPR. use what split depend on your file delimiter
                my @items = split/,/, $line;
                # write some item to new file
                print FOO  $items[1] . "|" . $items[0] . "  ";
            }
            # close file handler
            close(FOO);
        } else {
			# open file fail
            print "open destination file $d_file error\n";
        }
		# close file handler
        close(FO);
    } else {
		# open file fail
        print "open source file $s_file error\n";
    }
}

# pass params to main function,
# @ARGV
# The array @ARGV contains the command-line arguments intended for the script.

main(@ARGV);