Perl 从CSV基础解析列信息

我有以下格式的csv文件（在excel中打开） 例如：

我正在编写一个Perl程序，它将从B列获取信息，并将其转换为URL

我尝试了很多方法，比如

拆分

，但都没能奏效

---

当我在谷歌上搜索代码时。上面的代码与我以前使用的代码类似，但最后给出了一些我无法解决的错误

我使用以下代码：

open(IN, "LogFile1.csv");

while() { ... }

在

while{}

中，我输入了删除重复行并转换为URL的代码。它解析csv文件中的所有信息。我试图删除除B列之外的所有列，代码在转换URL时工作得非常好。这意味着当有3列信息时，将IP转换为URL将失败。

您可以执行以下操作：

perl -ane '@F == 3 && print "http://$F[1]\n"' file.txt

你可以做：

perl -ane '@F == 3 && print "http://$F[1]\n"' file.txt

---

如果是CSV文件，您可以使用它来解析数据。比如：

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my $file = 'file.csv';

my $csv = Text::CSV->new();

open my $fh, "<", $file or die $!;

while ( my $row = $csv->getline( $fh ) ) {
  print 'http://' . $row->[1] . "\n";
}

close $fh;

#/usr/bin/perl
严格使用；
使用警告；
使用Text：：CSV；
my$file='file.csv'；
my$csv=Text:：csv->new（）；
打开my$fh，“如果它是一个CSV文件，您可以使用它来解析数据。类似于：

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my $file = 'file.csv';

my $csv = Text::CSV->new();

open my $fh, "<", $file or die $!;

while ( my $row = $csv->getline( $fh ) ) {
  print 'http://' . $row->[1] . "\n";
}

close $fh;

！/usr/bin/perl
严格使用；
使用警告；
使用Text：：CSV；
my$file='file.csv'；
my$csv=Text:：csv->new（）；
打开我的$fh，“发布你尝试过的代码，我们会提供帮助。发布你尝试过的代码，我们会提供帮助。”。