`

perl - a simple task exerice, split and loop

    博客分类:
  • perl
阅读更多

it is a very simple task to exercise your understanding of the perl language. 

 

the issue is like this : 

 

 

 

$ cat test.txt

a,1,x,A,B,C

b,2,y,D

c,3,z,E,F

 
 
and you want to display the final result as follow.
 
a,1,x,A
a,1,x,B
a,1,x,C
b,2,y,D
c,3,z,E
c,3,z,F
 
Below shows some techinques.
 
perl -F, -lane '$k=3;for $f (@F[$k..$#F]) { print join(",", @F[0..$k-1]), ",$f" }' test.txt
 
and you can also write the following script files.
 
#! /bin/perl


# you may also run the following command on the command line,
#  perl -F, -lane '$k=3;for $f (@F[$k..$#F]) { print join(",", @F[0..$k-1]), ",$f" }' test.txt

while (<STDIN>) {
    while ($_ =~ /^([a-z0-9,]+)?([A-Z0-9,]+)/g) {
        map {print "$1$_\n" } split (/,/, $2) ;
    }

}
 
 
or 
 
#! /bin/perl



# you may also run the following command on the command line,
#  perl -F, -lane '$k=3;for $f (@F[$k..$#F]) { print join(",", @F[0..$k-1]), ",$f" }' test.txt

$k = 3;
while (<>) {

    @F = split(",", $_);
    for $f (@F[$k..$#F]) {
        print join(",", @F[0 .. $k - 1]), ",$f\n";
    }
}
 
 
Or you can do this following line as well.
 
$ perl -F, -lane '($a,$b,$c,@o) = @F; print "$a,$b,$c,$_" for (@o); ' 
 
 
 
分享到:
评论

相关推荐

    perl-Test-Simple-1.302135-1.el8.noarch(1).rpm

    离线安装包,亲测可用

    linux 离线安装perl-IPC-Cmd

    `perl-IPC-Cmd`是Perl的一个模块,它提供了执行外部命令并捕获其输出的功能。离线安装Perl模块在没有互联网连接或者安全策略限制的环境下尤其重要。下面我们将详细介绍如何在Linux上离线安装`perl-IPC-Cmd`,以及...

    perl-HTTP-Server-Simple

    Perl-HTTP-Server-Simple是Perl编程语言中的一个轻量级Web服务器模块,它使得在Perl环境中快速搭建本地HTTP服务器变得简单易行。这个扩展包主要用于开发和测试用途,允许开发者在无需复杂配置的情况下,快速启动一个...

    perl-Pod-Simple-3.13-141.el6_7.1.x86_64.rpm

    解决MySQL在linux下缺少依赖 perl-Pod-Simple-3.13-141.el6_7.1.x86_64.rpm

    perl-Locale-Maketext-Simple-0.21-299.el7_9.noarch.rpm

    官方离线安装包,亲测可用。使用rpm -ivh [rpm完整包名] 进行安装

    Perl-5.10.0版本

    Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0...

    centos7 perl rpm依赖包

    装mysql时提示少perl,安装perl需要依赖包。...1:perl-Pod-Simple-3.28-4.el7.noarch perl-Getopt-Long-2.40-2.el7.noarch 4:perl-5.16.3-286.el7.x86_64 kernel-devel-3.10.0-327.10.1.el7.x86_64

    Centos7 离线perl-CPAN rpm包

    3. 使用`rpm`命令逐个安装这些包,按照依赖关系顺序安装,通常从perl-Digest-1.17开始,然后是perl-Digest-SHA,接着是perl-local-lib,最后是perl-CPAN。运行以下命令: ``` sudo rpm -ivh perl-Digest-1.17-245....

    ActivePerl-5.28.1.0000-MSWin32-win10x64-65ffd8c2

    ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方),可避免从官网下载速度慢的问题。 ActivePerl-5.28.1 win10 x64离线安装包(官方...

    strawberry-perl-5.32.1.1-32bit.msi

    strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-32bit.msi离线安装包(官方),可避免...

    strawberry-perl-5.32.1.1-64bit.msi

    strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免...

    Digest-Perl-MD5-1.9.tar.gz

    《Digest-Perl-MD5:Perl中的MD5哈希库》 Digest-Perl-MD5是Perl编程语言中用于处理MD5(Message-Digest Algorithm 5)哈希算法的一个模块。MD5是一种广泛使用的加密散列函数,设计者是Ronald Rivest。它产生一个...

    perl-WWW-Curl-4.17-1.el7.x86_64

    perl-WWW-Curl4.17版本rpm包

    perl-5.24-win64.rar

    标题中的"perl-5.24-win64.rar"指的是Perl编程语言的Windows 64位版本的压缩包,版本号为5.24。Perl是一种高级的、通用的、解释型、动态的编程语言,尤其适合处理文本操作和系统管理任务。在Windows环境下,Perl的...

    perl-5.16.3-293.el7.x86_64_rpm.zip

    标题中的"perl-5.16.3-293.el7.x86_64_rpm.zip"指的是Perl编程语言的一个特定版本的RPM(Red Hat Package Manager)包,适用于64位的 CentOS 7 操作系统。RPM是一种在类Unix系统中管理软件包的标准格式,它方便了...

    strawberry-perl-5.38.0.1-64bit-portable.zip

    本文将深入探讨"strawberry-perl-5.38.0.1-64bit-portable.zip"这个压缩包的内容及其重要性。 该压缩包名为"strawberry-perl-5.38.0.1-64bit-portable.zip",表明这是一款基于Perl 5.38.0.1版本的64位便携版...

    perl-Data-Dumper-2.145-3.el7.x86_64.rpm

    RHEL 7.1安装MySQL 5.6的依赖包:perl-Data-Dumper-2.145-3.el7.x86_64.rpm ------------------------------------------------------------------------------------

    strawberry-perl-5.32.1.1-64bit

    这个"strawberry-perl-5.32.1.1-64bit"压缩包是针对64位系统的,这意味着它设计用于运行在64位版本的Windows上。Perl是一种功能强大的脚本语言,广泛应用于文本处理、网络编程、系统管理任务以及各种Web应用程序。 ...

Global site tag (gtag.js) - Google Analytics