从Perl列表中抽取特定信息

Question

我必须使用的文件是LDAP提取的结果，但我最终需要将信息格式化为电子表格可以使用的内容。

因此，数据如下：

DataDataDataDataDataDataDataDataDataDataDataDataDataDataDataData 
DataDataDataDataDataDataDataDataDataDataDataDataDataDataDataData 
displayName: John Doe 
name: ##userName 

DataDataDataDataDataDataDataDataDataDataDataDataDataDataDataData 
DataDataDataDataDataDataDataDataDataDataDataDataDataDataDataData 
displayName: Jane Doe Jr 
name: ##userName 

DataDataDataDataDataDataDataDataDataDataDataDataDataDataDataData 
DataDataDataDataDataDataDataDataDataDataDataDataDataDataDataData 
displayName: Ted Doe 
name: ##userName 

，我需要导出到的格式是：

firstName lastName userName 
firstName lastName userName 
firstName lastName userName 

当空间是标签这样我就可以再祁门功夫该文件为数据库。我有经验在VBScript中这样做，但我试图切换到使用Perl进行尽可能多的服务器管理。

我不知道关于语法的我想要的东西基本上是

while not endoffile{ 
detect "displayName: " & $firstName & " " & $lastName 
detect "name: ##" & $userName 

write $firstName tab $lastName tab $userName to file 
} 

此外，如果有人可以点我特别对Perl使用文本分析语法的资源，我会很感激。我遇到的大部分资源都不是很有帮助。

此外，某些用户名是数字。前两个数字仍然需要修剪，但userName的长度总是6个字符（如果有帮助的话）。

Answer 1

像这样的东西应该做的伎俩 - 从标准输入和输出读到stdout，这样你就可以正常使用UNIX管道使用的文件：

#!/usr/bin/perl 

use strict; 
use warnings; 
use String::Util 'trim'; 

# set "line ending" to \n\n, to allow slurping by paragraphs: 
local $/ = "\n\n"; 

while (my $line = <>) 
{ 
    chomp $line; 

    my ($displayName) = ($line =~ /^displayName: (.+)$/m); 
    my ($name) = ($line =~ /^name: ##(.+)$/m); 
    trim $displayName; 
    trim $name; 

    my ($firstName, $lastName) = ($displayName =~ /^([^ ]+) (.+)$/); 

    print "$firstName\t$lastName\t$name\n"; 
} 

我这个使用你下面给样本输入测试作为test.pl < input.txt并得到了输出：

 
John Doe  userName 
Jane Doe  userName 
Ted  Doe  userName 

您可以了解下$ /段模式啜在perldoc perlvar，或在这太问题（链接需要）。在匹配运算符上使用m标志启用多行匹配 - 请参阅perldoc perlre。

Answer 2

这是我的解决方案。

use strict; 
use warnings; 
my $fh; 
my $file_contents; 
my @info; 
open $fh, '<', "data" or die($!); 
local $/ = undef; 
$file_contents = <$fh>; 

while($file_contents =~ /.ame: (.*?)$(.*?).ame: (.*?)$/smg) 
{ 

    my $displayname = $1; 
    my $username = $3; 
    $displayname =~ s/^\s+//; #clean off any whitespace from front/back 
    $displayname =~ s/\s+$//; 
    my ($firstname, $lastname) = split(/\s+/, $displayname); #split on whitespace 

    print "$firstname\t$lastname\t$username\n"; #note the tabs 
}