日韩av黄I国产麻豆传媒I国产91av视频在线观看I日韩一区二区三区在线看I美女国产在线I麻豆视频国产在线观看I成人黄色短片

歡迎訪問 生活随笔！

生活随笔

當(dāng)前位置： 首頁 >

Perl一行式：文本编解码、替换

發(fā)布時(shí)間：2025/4/14 41 豆豆
生活随笔 收集整理的這篇文章主要介紹了 Perl一行式：文本编解码、替换 小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

perl一行式程序系列文章：Perl一行式

文本大小寫轉(zhuǎn)換

全部字符轉(zhuǎn)換成大寫或小寫，有幾種方式：

# 轉(zhuǎn)大寫 $ perl -nle 'print uc' file.log $ perl -ple '$_ = uc' file.log $ perl -nle 'print "\U$_"' file.log# 轉(zhuǎn)小寫 $ perl -nle 'print lc' file.log $ perl -ple '$_ = lc' file.log $ perl -nle 'print "\L$_"' file.log

每行首字母大小寫轉(zhuǎn)換：

$ perl -nle 'print lcfirst' file.log $ perl -lpe '$_ = ucfirst' file.log $ perl -lne 'print \u\L$_' file.log

單詞首字母大寫，其它小寫：

$ perl -ple 's/(\w+)/\u$1/g' file.log

修剪前綴、后綴空白

去掉前綴空白的方式：

$ perl -ple 's/^\s+//' file.log

去掉后綴空白的方式：

$ perl -lpe 's/\s+$//' file.log

同時(shí)去掉前綴和后綴空白：

$ perl -lpe 's/^\s+|\s+$//' file.log

反序輸出所有段落

$ perl -00 -e 'print reverse <>' file.log

前面的文章壓縮連續(xù)的空行解釋過，-00是按段落讀取且壓縮連續(xù)的空行。

reverse <>中reverse的操作對(duì)象期待的是一個(gè)列表，所以<>會(huì)一次性讀取整個(gè)文件且按照段落讀取，每個(gè)段落是列表中的一個(gè)元素。最后reverse函數(shù)反序這個(gè)列表，然后被print輸出。

反序輸出所有行

$ perl -e 'print reverse <ARGV>' file.log sync x 4 65534 sync /bin /bin/sync sys x 3 3 sys /dev /usr/sbin/nologin bin x 2 2 bin /bin /usr/sbin/nologin daemon x 1 1 daemon /usr/sbin /usr/sbin/nologin root x 0 0 root /root /bin/bash

這里reverse <ARGV>表示一次性讀取file.log的所有行并進(jìn)行反轉(zhuǎn)。

也可以使用下面這種方式，但如果文件結(jié)尾不正確(缺少eof)，可能會(huì)卡住：

$ perl -e 'print reverse <>' file.log

ROT13字符映射

Perl中可使用tr///或y///進(jìn)行字符一一映射的替換。它們和unix下的tr命令作用類似。

$ perl -le '$string="hello";$string =~ y/a-zA-Z/N-Za-mA-Mn-z/;print $string' URYYb

BASE64編碼、解碼

MIME::Base64模塊提供了base64編碼、解碼的方法。

編碼：

$ perl -MMIME::Base64 -e 'print encode_base64("coding")' Y29kaW5n

解碼：

$ perl -MMIME::Base64 -le 'print decode_base64("Y29kaW5n")' coding

編碼文件：

$ perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' file.log

解碼文件：

$ perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)' file

URL轉(zhuǎn)義

使用URI::Escape模塊即可進(jìn)行URL轉(zhuǎn)義。該模塊需要額外安裝cpan URI::Escape。

$ perl -MURI::Escape -le 'print uri_escape("http://example.com")' http%3A%2F%2Fexample.com

反轉(zhuǎn)義：

$ perl -MURI::Escape -le 'print uri_unescape("http%3A%2F%2Fexample.com")' http://example.com

HTML編碼、解碼

先安裝額外HTML格式的編解碼模塊cpan HTML::Entities。

$ perl -MHTML::Entities -le 'print encode_entities("<html>")' $ perl -MHTML::Entities -le 'print decode_entities("&lt;html&gt;")'

轉(zhuǎn)載于:https://www.cnblogs.com/f-ck-need-u/p/10243772.html

總結(jié)

以上是生活随笔為你收集整理的Perl一行式：文本编解码、替换的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。