用Perl实现一个批量文件转码工具

最新推荐文章于 2021-05-19 18:49:42 发布
最新推荐文章于 2021-05-19 18:49:42 发布
阅读量2.3k 收藏
点赞数 1
文章标签： perl file freebsd 正则表达式 windows 脚本
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hailongchang/article/details/5437535
版权
本文介绍了一个使用Perl编写的脚本，该脚本利用iconv库批量将ISO-8859-1编码的文件转换为UTF-8编码。脚本在FreeBSD和Windows环境下均可运行，通过递归遍历目录，对特定类型的源代码文件进行编码转换，并将非转换文件原样拷贝到目标目录。
摘要由CSDN通过智能技术生成

前几天在看Ultimate_ToolBox的源代码，从codeproject上down下来一编译，一堆错误，发现是由于编译器无法识别ISO-8859-1编码，误读有关字符造成的，所以立即着手准备转换程序源文件编码，google了一把，也下了两个小软件，但是都没有批量转换功能，而有这功能的又不支持从ISO-8859-1到UTF-8的转换，于是想到从前在FreeBSD下UTF-8和GB2312互相转换的函数的iconv库 ，我知道iconv不但是一个程序库，而且有一个同名的应用程序能够将文件在两种编码中转换。用这个iconv程序搭配脚本再利用重定向功能应该可以很轻松地完成批量转换文件编码的工作。

在实际编写脚本的过程中，害怕将来运行出现意外，所以并没有将转码过后的文件重定向到源文件上，而是指定了另外一个位置，同时为了将来对Ultimate_ToolBox整个代码编译的方便，对工程目录中不用进行编码的文件，全部原样拷贝到新的位置，这样一个递归遍历目录，批量转换文件编码的小工具就诞生了。

附上Perl的源程序，如果windows下有已经移植过的iconv，则搭配ActivPerl也可以运行在windows环境下。

 

#!/cygdrive/c/Perl/bin/perl
#######################################################
#用途：    批量转换某文件夹内程序源文件的编码，其余文件不变
#
#用法：    $./change_codepage.pl > log.txt

最低0.47元/天 解锁文章
hailongchang
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Python和perl实现批量对目录下电子书文件重命名的代码分享
12-25
经常会遇到下载的文件或电子书，名字中间都包含了一些网址信息，实际使用中由于名字太长不方便，下面的脚本使用正则表达式来对目录下的所有文件重命名： 例如： 修改前：[软件开发网]Mac OS X for Unix Geeks...
批量文件转码压缩打包Perl脚本
python脚本
11-14 326
批量文件转码压缩打包Perl脚本 我们经常遇到批量文件转码后压缩打包，为此我编写了一个Perl脚本，运行脚本文件后自动实现这些功能。 版权声明：本文为博主原创文章，转载请注明出处：https://blog.csdn.net/sgqhappy/article/details/84021568 1.定义数组 #!/usr/bin/perl use strict; my @array=( "110"...
perl 转码操作将utf8格式转换为gb2312
xiaocao9903的专栏
10-23 2010
#删除rec中没有ref的语句 #!/bin/perl -w  use Encode;
linux自带perl加密,关于perl转码，加密，时间取得的问题
weixin_30545587的博客
05-19 581
pack可视为将一系列的片段的数值打包在一起，可用于对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpack可以视为将将这些完整的 memory切割计算，取得我们所需要各部分的Variable。#把一个字符串转为十六进制格式my $source = 'abcd';#这个'H'是说明转化为十六进制， 后面的*是任意长度，也就是说，...
理解perl的编码转换——utf8以及乱码
weixin_30307267的博客
04-04 379
工作需要，闲暇之余，仔细研究了一下脚本乱码的问题 1. vim新建的文件 1）在linux命令行 vim命令建立的文件，如果内容中不出现中文，默认是ASCII。那么用notepad++打开的时候，就是“以ASC格式编码”。如下面的: 99.txt2) 如果vim在建立文件的时候，故意在文件中插入中文(我的secureCRT是utf8的)，此时文件内容不会乱码，而且vim保存文件后，再用vim打...
shell-perl-python等脚本文件加密工具
10-30
"shell-perl-python等脚本文件加密工具"这个主题就涉及到这样一个工具——shc。 shc（Shell Script Compiler）是一款开源工具，它能够将Shell脚本转换成二进制可执行文件，从而达到加密和保护脚本源码的目的。shc的...
Perl脚本实现递归遍历目录下的文件
09-22
下面是一个简单的Perl脚本，用于递归遍历目录下的所有文件： ```perl #!/usr/bin/perl -w use strict; use File::Spec; local $\ = "\n"; # 设置每行输出后添加换行符 my %options; $options{single_case} = '/...
Perl实现文件及数据库访问
08-04
标题“Perl实现文件及数据库访问”揭示了这个主题主要关注如何使用Perl编程语言来操作文件以及与数据库进行交互。Perl是一种强大的脚本语言，尤其在处理文本和系统管理任务方面非常出色。在这个主题中，我们将深入...
Daiku:Perl5 上的另一个构建工具
07-03
Daiku 是 Perl5 的另一个构建系统。 使用指南 使用大库 通过在您自己的 Perl 脚本中声明use Daiku ，您可以使用 DSL 来编写您的构建过程。 有关此用法的示例，请参见 。 命令和 Daikufile 带有命令行工具。 就像...
perl程序实现对UTF16编码的文件转换为utf8编码文件
08-11
一些文件是uff16格式,虽然也是文本类型文件,但读取总是出现乱码,因此写了一个程序,可实现对UTF16编码的文件转换为utf8编码文件,请大家下载之前查清楚自己遇到的文件是否是utf16格式的.否则无效哦.使用方法请打开脚本里头几行有说明.
perl对于encode的用法
weixin_30689307的博客
03-15 337
转载：http://lynsead.spaces.live.com/Blog/cns!1pN1cYMeTzpoDjzM1P1IqDFg!135.entry perl对中文的处理(encode,decode) 最近在处理中文时遇到乱码的问题，google了一下，发现下面这篇文章。茅塞顿开！ Perl从5.6开始已经开始在内部使用utf8编码来表示字符，也就是说对中文以及其他语言字符的...
perl遍历文件夹将文件转化为utf-8格式
长虹剑的专栏
12-07 1901
制作需求来源： 用eclipse打开网站源码，发现java代码中文乱码，想都不用想，文件格式肯定不是utf-8（因为以前我用notepad++看过），这次我实在是不想手动改了，就用perl处理了，搜了资料，做了3个小时才搞定，为什么我总是这么慢。 代码的可用之处： 1）有个可以获得文件夹中所有文件的函数（包括递归子文件夹）         2）提供正则表达式，将gb2312的文件批量转为u
perl文件编码处理问题
07-30 4199
在看perl时，发现文件编码处理问题不是很懂。BG了下，发现还是有点东东，so，收藏下： --------------------------1----------------------------------- 一个脚本用于分析应用程序的日志,但是在这些日志文件中,有的编码是utf-8的,有的编码是gbk的.对于utf-8的日志文件,需要将内容转换成gbk的编码,这样看到的中文才不至于乱码
Perl中文/unicode/utf8/GB2312之间的转换
编程资料大全
04-16 201
Perl中文/unicode/utf8/GB2312编码之间的转换是一件很让人头疼的事情，我总结了以下主要的转换方法，供大家了解参考。# author: jiangyujie use utf8; use Encode; use URI::Escape; $\ = "\n"; #从unicode得到utf8编码 $str = '%u6536'; $str =~ s/\%u([0...
Perl如何处理字符串 z
11-22 929
在Perl看来, 字符串只有两种形式. 一种是octets, 即8位序列, 也就是我们通常说的字节数组. 另一种utf8编码的字符串, perl管它叫string. 也就是说: Perl只认识两种编码: Ascii(octets)和utf8(string) 本文内容适用于perl 5.8及其以上版本.perl internal form在Perl看来, 字符串只有两种形式. 一
Perl]文字/代码批量替换工具 [转]
weixin_30468137的博客
11-02 134
原文：http://www.blueidea.com/download/product/2007/4623.asp Perl脚本batchReplace.pl可以用来批量替换文件中的文字/代码。可在指定目录中查找指定类型的文件，并递归检查子目录；在输出文件时复制输入文件的目录结构。 附件Win32应用程序batchReplace.exe 是由Perl脚本编译产生的可执行程序，不需安装Perl运...
用perl写一个批量导出cdl的脚本
最新发布
06-07
好的，以下是一个简单的 Perl 脚本，可以批量导出 cdl 文件： ```perl #!/usr/bin/perl use strict; use warnings; # 设置输入和输出目录 my $input_dir = "/path/to/input/directory"; my $output_dir = "/path/...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值