• 用替换方法进行编码：

Url encode：对 \n 不转码
perl -pe 's/([^\w\-\.\@])/$1 eq "\n" ? "\n":sprintf("%%%2.2x",ord($1))/eg' keywords.list

• 用替换方法进行解码：

Url Decode：
perl -pe 's/%(..)/pack("c", hex($1))/eg' keywords.list

• 用URI::URL模块进行编码

use URI::URL;
my $str = "http://www.google.com/lxmxn's blog&b=Hello,perl";
my $url = URI::URL->new( $str );
print $url;

• 用URI::Escape模块进行编码

use URI::Escape;
my $str='北极神话';
print uri_escape($str);

#result:%B1%B1%BC%AB%C9%F1%BB%B0

• 获得下一分钟的时间:

PS C:\> get-date -DisplayHint time
4:16:33
PS C:\> echo $(get-date -displayhint time).AddMinutes(1).toString()
2007-10-7 4:17:35

• 单位换算:

PS C:\> 1+1KB+1MB+1GB
1074791425

• 获取磁盘剩余空间:

PS C:\> Get-WMIObject Win32_LogicalDisk | ForEach-Object {$_.name,[math]::truncate($_.freespace / 1MB)}
C:
1021
D:
6276
E:
4170
F:
4330
G:
2032

• 向标准输出写警告:

PS C:\> Write-Warning "The folder C:\Scripts2 does not exist."
警告: The folder C:\Scripts2 does not exist.

提供的文件中有一行特别的长，用cmd的for命令无法读取，最后只能给出利用awk来解决的方案。

 自己又在下面测试了一下，如果文本的某行的字节数超过了8187，for命令就读不出来，这是cmd处理文件的一个局限。（对中文字符没有做测试。）

由于脚本中用了比较多的findstr、find以及for嵌套,所以跑起来很慢.建议文件比较多的不要用这个来跑。

List_with_Size.bat
[code]
:: Code by lxmxn @ bbs.cn-dos.net
:: Date 2707-09-26

rem 关闭命令行回显并打开延迟扩展

@echo %bg% off & SetLocal EnableDelayedExpansion

rem 对当前目录及其子目录中的每个文件大小进行索引
set tnum=1
for /r .\ %%a in (*) do (
set "file!tnum!_%%~nxa=%%~za"
set /a tnum+=1
)

rem 处理TREE的输入并显示结果
set tnum=1

echo %cd%
echo ************************************************
for /F "delims=" %%a in ('tree /F^|more +3') do (
echo %%a|findstr /R "├ └" >nul && (
echo\%%a
) || (
echo %%a|findstr /R /C:"^│[ ]*$" >nul 2>nul && (
echo\%%a
) || (
for /f "delims=" %%c in ("%%a") do (
set string=%%c
set string=!string:│=!
for /f "tokens=* delims= " %%d in ("!string!") do set fname=%%d
if not "!fname!"=="" (
call echo\%%a [%%file!tnum!_!fname!%%]
set /a tnum+=1
) else (echo\%%a)
)
)
)
)
[/code]

:: lxmxn @ cn-dos.net
:: 15:58 2007-7-28
:: sort numbers in a file
@echo off&Setlocal EnableDelayedExpansion
set sorts=.
>nul copy nul output.txt
For /L %%a in (1,1,10) do (
    findstr "^^!sorts!$" input.txt|sort >> output.txt
    set sorts=!sorts!.
    rem echo !sorts!
)
start notepad output.txt

　　(此方法只适合Xp以上的系统使用)