文章摘要
这篇文章介绍了使用 Perl 语言处理文本文件的方法，主要目的是提取特定内容并生成 CSV 文件。文章详细描述了如何通过打开并读取文件、使用正则表达式匹配和提取数据，以及将提取的信息保存到 CSV 文件中。代码中涉及的主要操作包括文件打开与关闭、数据分隔与处理，以及条件判断和数据拼接等。通过此方法，可以实现自动化数据提取和整理。
#!/usr/bin/perl
my %scyjm;
open (CONTACT,”f:\\perl\\f.txt”)||die(“can not open the file!”);
while (
{
next if /^#/;#if($_=~/^#/的简写
chomp;
my @information=split;# my @information=split/\s+/,$_;的简写
next if(($information[1]=~/\https://www.jb51.net/article/) && ($information[2]=~/\https://www.jb51.net/article/));
$scyjm{$information[13]}->{$information[0]}=$information[3];
}
close CONTACT;
open (SC,”f:\\perl\\a.csv”)||die(“can not open the file!”);
while(
{
chomp;
my @sc=split;
if ( $scyjm{$sc[1]}{$sc[2]})
{
print “$sc[0] $sc[1] $sc[2] $sc[3] $sc[4] $sc[6] $yjm[6]\n”;
}
}
© 版权声明
文章版权归作者所有，未经允许请勿转载。
