Perl 去掉行分割符

最新推荐文章于 2023-04-15 20:16:01 发布
最新推荐文章于 2023-04-15 20:16:01 发布
阅读量659 收藏
点赞数
分类专栏： Perl高级编程
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42266483
版权
Perl高级编程 专栏收录该内容
41 篇文章 30 订阅 ¥39.90 ¥99.00
订阅专栏
本文演示了如何使用Perl的一段代码从文本文件中读取内容并移除行尾的换行符，通过`chomp`函数实现。
摘要由CSDN通过智能技术生成 
[oracle@dwh1 perl]$ cat 9.pl 
open my ($fh),'<',"1.txt" or die;
foreach (<$fh>) {
chomp ($_);
print "$_";
};
[oracle@dwh1 perl]$ cat 1.txt 
aaaaaaaa
bbbbbbbb
cccccccc
dddddddd
eeeeeeee
ffffffff
gggggggg
[oracle@dwh1 perl]$ perl 9.pl 
aaaaaaaabbbbbbbbccccccccddddddddeeeeeeeeffffffffgggggggg[oracle@dwh1 perl]$

scan724
关注
专栏目录
订阅专栏
perl 字符串删除末尾几个字符_Perl-字符串处理函数
weixin_42357054的博客
12-23 1252
坚持本身就是意义，发一个愿，争取做到每天不断更，有时间、且有较多待输出内容时就多写点，即便是没有太多东西更新，也保证把当日的新的小的知识技能做个输出，求个不断更的心安理得！perl对文本处理真的是太强大了，从内置的一些函数就能体会到这一点，作为只会Python的人，以后在处理文本内容时就不用再扯着蛋取调用正则库了：Perl字符串处理函数0.splitsplit /regex/, string: 字...
Perl: 将要执行的外部命令拆分为多行
yuntaoren的博客
04-09 252
注: 文章中的示例代码都在 Linux 平台下运行。 在 Perl 中，可以通过 `` 或 qx// 函数方便的执行一些外部命令，并获取到命令的执行结果，例如下面的 Perl 代码片段可以获取到当前的时间： #!/usr/bin/perl use strict; use warnings; my $now = `date`; print "now: $now"; 输出结果示例： now: 2022年 04月 09日 星期六 09:09:00 CST 有时候，要执行的外部命令参数比较多，都
Perl去掉数组中重复的行
u012467492的专栏
07-31 2961
转载请注明出处：http://blog.chinaunix.net/uid-9398085-id-3035131.html . #!/usr/bin/perl use strict; my %hash; my @array = (1..10,5,20,2,3,4,5,5); #grep 保存符合条件的元素 @array = grep { ++$hash{$_} pri
【perl】【 split】使用
最新发布
lu20090288的博客
04-15 1316
perl split会根据给定的模式拆分字符串，对于使用制表符、冒号、空格或任意符号分割不同字段数据的字符串来说，用这个操作符分解提取字段相当方便。只要你能将分隔符写成模式，就可以用split分解数据。
使用Perl删除前导和拖尾空白
杰瑞的专栏
04-21 2956
其它一些编程语言中，有函数ltrim和rtrim分别用于从字符串开头和末尾删除空格和制表符。 也有的提供了函数trim来删除字符串两端的空白字符。 Perl里没这些函数因为简单的正则表达式替换就能实现这个目的（不过我确信CPAN有很多模块实现了这些函数）。 事实上这太简单了以至于成了帕金森琐碎定理里的一个显著主题。 左侧整理 ltrim或者lstrip从字符串左
pv.rar_Perl脚本_perl 统计
09-24
Perl提供了丰富的内建函数，如`open()`用于打开文件，`<FILEHANDLE>`用于读取文件内容，`chomp()`用于去除字符串末尾的换行符，以及`split()`用于按特定分隔符分割字符串。在描述中提到，Perl脚本会读取由shell脚本...
Perl 数据类型：标量
追梦赤子心
11-23 453
Perl 数据类型：标量（scalar） 0. Perl 的优势和劣势： Perl适合在几分钟内写出虽然难看但是却够用的一次性程序； Perl擅长处理和文字有关的问题； 不适合封闭式二进制可执行文件(opaque binary); 标量分类 标量数据：(常量) 固定数据，表示确定的数据内容； 标量变量：(变量) 可变数据，表示数据的存储容器； 1. 标量数据：数字 Perl处理数字是用的...
python正则表达式模块的findall方法若想忽略换行符_python的正则表达式（re函数，贪婪和非贪婪）...
weixin_39537397的博客
12-19 2609
我们连接Linux来实现正则表达式一、Python3 正则表达式正则表达式是一个特殊的字符序列，它能帮助你方便的检查一个字符串是否与某种模式匹配。Python 自1.5版本起增加了re 模块，它提供 Perl 风格的正则表达式模式。re 模块使 Python 语言拥有全部的正则表达式功能。compile 函数根据一个模式字符串和可选的标志参数生成一个正则表达式对象。该对象拥有一系列方法用于正则表达...
Perl split字符串分割函数用法指南
Free雅轩的博客
04-18 3938
本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中。 本文和大家重点讨论一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中。这个Perl split函数使用规则表达式（RE），如果未特定则工作在$_变量上。 Perl split函数 Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分
perl中split分割字符串用法坑人的一些细节！！
u013816205的博客
04-14 6061
好多天没有在这里记录啦。今天发现一个佷值得跟大家分享的小经验！如题！ 1、注意split，若以字符串最前面的一个字符作为分隔符的话，分割得到的数组的第一个是空白！！！！而不是后面的东西！这个坑了我好久好久！ eg:>TRINITY_DN36413_c0_g1_i1_2，我要去掉“>”，试过用$_=~s/^>(TRINITY_DN\d+_c\d+g_\d+_i\d+)/$1/，但是匹配总是出问题
Perl按行分割文件
weixin_30426065的博客
10-18 507
Perl按行分割文件 将一个文件按照行数，均等的分割成多个小文件，例如，一个550行的文件，分割为每个文件有100行，则将分割为6个小文件 运行结果 参考代码(split_file.pl) #!/usr/bin/perl #usage way: split_file.pl test open(FILE,$ARGV[0]) or die ("Error: cannot open fil...
perl $/ 行分割符
zhaoyangjian724的专栏
11-30 909
[root@yyjk aaa]#cat bbb [2019-01-01]aaaaaaaaa[2019zhao] bbbbbbbbbbbbbbbbbb cccccccccccccccccc [2019-03-02]dd ff gg hh [root@yyjk aaa]#cat a.pl use HTTP::Date qw(time2iso str2time time2iso time2isoz...
perl——当split函数用空格做分隔符时
Aggressive_snail的专栏
03-22 1万+
## 语法 split /PATTERN/,EXPR split /PATTERN/ split split用来分隔字符串EXPR，在列表上下文中返回分隔后的列表，在标量上下文中返回列表长度。 split /\s+/ ne split ' '
PERL各个符号代表的意思
热门推荐
bobcao08的博客
12-04 1万+
$- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $” 列表分隔符 $# 打印数字时默认的数字输出格式 $$ Perl解释器的进程ID $% 当前输出通道的当前页号 $& 与上个格式匹配的字符串 $( 当前进程的组ID $) 当前进程的有效组ID $* 设置1表示处理多行格式.现在多以/s和/m修饰符取代之. $, 当前输出字段分
perl 获取匹配行后面的多行
Present is best Present!
08-03 2543
#!/usr/bin/perluse warnings;use strict;my$flag=0;my$a;while(){    if(/^>/)    {        $flag = 1;        $a = 0;    }    if($flag )    {        print $_;        $a++;    }    if($a == 3)    {        $flag = 0;    }}
Perl函数大全：新手指南
- `chomp`和`chop`：去除字符串末尾的换行符或指定字符。 3. **流程控制**： - `if`和`unless`：条件语句。 - `for`和`foreach`：循环语句。 - `while`和`until`：循环控制。 - `last`：跳出当前循环。 - `...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

scan724

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值