src/man1/a2p.1

   1 .rn '' }`
   2 .de Sh
   3 .br
   4 .if t .Sp
   5 .ne 5
   6 .PP
   7 \fB\\$1\fR
   8 .PP
   9 ..
  10 .de Sp
  11 .if t .sp .5v
  12 .if n .sp
  13 ..
  14 .de Ip
  15 .br
  16 .ie \\n(.$>=3 .ne \\$3
  17 .el .ne 3
  18 .IP "\\$1" \\$2
  19 ..
  20 .de Vb
  21 .ft CW
  22 .nf
  23 .ne \\$1
  24 ..
  25 .de Ve
  26 .ft R
  27
  28 .fi
  29 ..
  30 '''
  31 '''
  32 '''     Set up \*(-- to give an unbreakable dash;
  33 '''     string Tr holds user defined translation string.
  34 '''     Bell System Logo is used as a dummy character.
  35 '''
  36 .tr \(*W-|\(bv\*(Tr
  37 .ie n \{\
  38 .ds -- \(*W-
  39 .ds PI pi
  40 .if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
  41 .if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
  42 .ds L" ""
  43 .ds R" ""
  44 '''   \*(M", \*(S", \*(N" and \*(T" are the equivalent of
  45 '''   \*(L" and \*(R", except that they are used on ".xx" lines,
  46 '''   such as .IP and .SH, which do another additional levels of
  47 '''   double-quote interpretation
  48 .ds M" """
  49 .ds S" """
  50 .ds N" """""
  51 .ds T" """""
  52 .ds L' '
  53 .ds R' '
  54 .ds M' '
  55 .ds S' '
  56 .ds N' '
  57 .ds T' '
  58 'br\}
  59 .el\{\
  60 .ds -- \(em\|
  61 .tr \*(Tr
  62 .ds L" ``
  63 .ds R" ''
  64 .ds M" ``
  65 .ds S" ''
  66 .ds N" ``
  67 .ds T" ''
  68 .ds L' `
  69 .ds R' '
  70 .ds M' `
  71 .ds S' '
  72 .ds N' `
  73 .ds T' '
  74 .ds PI \(*p
  75 'br\}
  76 .\"     If the F register is turned on, we'll generate
  77 .\"     index entries out stderr for the following things:
  78 .\"             TH      Title
  79 .\"             SH      Header
  80 .\"             Sh      Subsection
  81 .\"             Ip      Item
  82 .\"             X<>     Xref  (embedded
  83 .\"     Of course, you have to process the output yourself
  84 .\"     in some meaninful fashion.
  85 .if \nF \{
  86 .de IX
  87 .tm Index:\\$1\t\\n%\t"\\$2"
  88 ..
  89 .nr % 0
  90 .rr F
  91 .\}
  92 .TH A2P 1 "perl 5.005, patch 03" "29/Jul/1998" "Perl Programmers Reference Guide"
  93 .UC
  94 .if n .hy 0
  95 .if n .na
  96 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
  97 .de CQ          \" put $1 in typewriter font
  98 .ft CW
  99 'if n "\c
 100 'if t \\&\\$1\c
 101 'if n \\&\\$1\c
 102 'if n \&"
 103 \\&\\$2 \\$3 \\$4 \\$5 \\$6 \\$7
 104 '.ft R
 105 ..
 106 .\" @(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2
 107 .       \" AM - accent mark definitions
 108 .bd B 3
 109 .       \" fudge factors for nroff and troff
 110 .if n \{\
 111 .       ds #H 0
 112 .       ds #V .8m
 113 .       ds #F .3m
 114 .       ds #[ \f1
 115 .       ds #] \fP
 116 .\}
 117 .if t \{\
 118 .       ds #H ((1u-(\\\\n(.fu%2u))*.13m)
 119 .       ds #V .6m
 120 .       ds #F 0
 121 .       ds #[ \&
 122 .       ds #] \&
 123 .\}
 124 .       \" simple accents for nroff and troff
 125 .if n \{\
 126 .       ds ' \&
 127 .       ds ` \&
 128 .       ds ^ \&
 129 .       ds , \&
 130 .       ds ~ ~
 131 .       ds ? ?
 132 .       ds ! !
 133 .       ds /
 134 .       ds q
 135 .\}
 136 .if t \{\
 137 .       ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
 138 .       ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
 139 .       ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
 140 .       ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
 141 .       ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
 142 .       ds ? \s-2c\h'-\w'c'u*7/10'\u\h'\*(#H'\zi\d\s+2\h'\w'c'u*8/10'
 143 .       ds ! \s-2\(or\s+2\h'-\w'\(or'u'\v'-.8m'.\v'.8m'
 144 .       ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
 145 .       ds q o\h'-\w'o'u*8/10'\s-4\v'.4m'\z\(*i\v'-.4m'\s+4\h'\w'o'u*8/10'
 146 .\}
 147 .       \" troff and (daisy-wheel) nroff accents
 148 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
 149 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
 150 .ds v \\k:\h'-(\\n(.wu*9/10-\*(#H)'\v'-\*(#V'\*(#[\s-4v\s0\v'\*(#V'\h'|\\n:u'\*(#]
 151 .ds _ \\k:\h'-(\\n(.wu*9/10-\*(#H+(\*(#F*2/3))'\v'-.4m'\z\(hy\v'.4m'\h'|\\n:u'
 152 .ds . \\k:\h'-(\\n(.wu*8/10)'\v'\*(#V*4/10'\z.\v'-\*(#V*4/10'\h'|\\n:u'
 153 .ds 3 \*(#[\v'.2m'\s-2\&3\s0\v'-.2m'\*(#]
 154 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
 155 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
 156 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
 157 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
 158 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
 159 .ds ae a\h'-(\w'a'u*4/10)'e
 160 .ds Ae A\h'-(\w'A'u*4/10)'E
 161 .ds oe o\h'-(\w'o'u*4/10)'e
 162 .ds Oe O\h'-(\w'O'u*4/10)'E
 163 .       \" corrections for vroff
 164 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
 165 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
 166 .       \" for low resolution devices (crt and lpr)
 167 .if \n(.H>23 .if \n(.V>19 \
 168 \{\
 169 .       ds : e
 170 .       ds 8 ss
 171 .       ds v \h'-1'\o'\(aa\(ga'
 172 .       ds _ \h'-1'^
 173 .       ds . \h'-1'.
 174 .       ds 3 3
 175 .       ds o a
 176 .       ds d- d\h'-1'\(ga
 177 .       ds D- D\h'-1'\(hy
 178 .       ds th \o'bp'
 179 .       ds Th \o'LP'
 180 .       ds ae ae
 181 .       ds Ae AE
 182 .       ds oe oe
 183 .       ds Oe OE
 184 .\}
 185 .rm #[ #] #H #V #F C
 186 .SH NAME
 187 a2p \- Awk 到 Perl 翻译器
 188 .SH "总览 (SYNOPSIS)"
 189 \fBa2p [options] filename\fR
 190 .SH "描述 (DESCRIPTION)"
 191 \fIA2p\fR 从命令行或标准输入取得一个awk脚本文件，
 192 并且向标准输出产生一个相同功能的 \fIperl\fR 脚本文件。
 193 .Sh "选项 (OPTIONS)"
 194 可选选项有:
 195 .Ip "\fB\-D<number>\fR" 5
 196 设置调试标记。
 197 .Ip "\fB\-F<character>\fR" 5
 198 告诉a2p，awk脚本总是带 \fB\-F\fR 选项执行。
 199 .Ip "\fB\-n<fieldlist>\fR" 5
 200 如果输入不分解为一个数组，你需要指定输入的各字段的名称。
 201 假如要翻译一个用于处理密码文件的awk脚本，你应当这样:
 202 .Sp
 203 .Vb 1
 204 \&        a2p -7 -nlogin.password.uid.gid.gcos.shell.home
 205 .Ve
 206 任何定界符都可以用来分隔字段名。
 207 .Ip "\fB\-<number>\fR" 5
 208 使得a2p总是假设输入包含那么多字段。
 209 .Ip "\fB\-o\fR" 5
 210 告诉a2p使用旧的awk行为。当前，唯一的区别是旧的awk总是有一个
 211 每行的循环，即使没有对每行的操作；新的awk不是这样。
 212 .Sh "\*(M"Considerations\*(S""
 213 a2p 不能翻译得像人一样好，但是通常都做得很好。
 214 在生成的perl脚本中，你应当检查和修改一些东西。这里是
 215 其中的一些，没有顺序。
 216 .PP
 217 awk 中有一个习惯，就是将一个字符串表达式放在 \fIint()\fR 函数中
 218 来使它强制解释为数字，即使参数已经是一个数字。
 219 这在perl 中是不必要的，但是a2p不知道参数是不是一个数字，所以它
 220 将它直译了。你也许想删掉它。
 221 .PP
 222 perl 中数字比较和字符比较是不一样的。对这两种情况，awk只有一个操作符，
 223 但是会在运行时判断是哪一种。在这一点上a2p不对awk进行彻底的模拟。
 224 它会猜测哪一种是你想要的。大多数时候它是对的，但是不能保证。
 225 这样的猜测都以 \*(L"\f(CW#???\fR\*(R" 注释来标记。你应当
 226 仔细检查它们，至少用perl的 \fB\-w\fR 选项来运行它们一次，这样
 227 perl会警告你在应当使用eq 的地方使用了＝＝。
 228 .PP
 229 perl 不会像awk一样将不存在的数组元素创建为引用。如果你想用这种办法
 230 来在一个for...in 循环中创建空元素，在perl中将不可能实现。
 231 .PP
 232 如果a2p产生了一个分段的行，用来将一列变量赋值，看上去就
 233 像这样 (Fld1, Fld2, Fld3...) ，你应当重新用上面提到的 \fB\-n\fR 选项
 234 运行a2p。这样可以让你命名字段。
 235 如果它又将行分解为一个数组，那么这个脚本中其他地方可能引用了字段的数量。
 236 .PP
 237 awk中的exit语句不会退出。如果有 \s-1END\s0 段，它会转到那里。
 238 在 \s-1END\s0 段中执行跳过其他程序，转向退出的awk脚本段落在perl
 239 中没有必要。你只要删掉 \s-1END\s0 块中的条件变量，直接退出就可以了。
 240 .PP
 241 perl 中有两种数组，数字下标的和关联数组。perl中的关联数组叫做
 242 散列 \*(L"hashes\*(R"。awk中的数组总是翻译为散列，但是如果你知道
 243 索引总是数字，你就可以将 {...} 转为 [...]。对散列的遍历用到了
 244 \fIkeys()\fR 函数，但是对数组的散列不会。你需要修改对这样的数组进行遍历
 245 的循环。
 246 .PP
 247 awk 默认 \s-1OFMT\s0 的值是 %.6g，perl默认作用相同的成分
 248 $# 的值是 %.20g。如果你想使用 \s-1OFMT\s0 的默认值，你需要
 249 显式地定义$#。
 250 .PP
 251 在循环顶部总是会出现分支操作，这是awk脚本中暗含的。很多时候
 252 你可以将对整个记录的判断移到循环下面，这样可以减少很多分支判断。
 253 .PP
 254 出于美学原因，你也许想将数组的起始值 $[ 从1转为perl默认的0
 255 但是要记住将所有数组的下标 \s-1AND\s0 和 \fIsubstr()\fR 还有 \fIindex()\fR
 256 函数都进行更改，保证正确。
 257 .PP
 258 a2p会聪明地在在未处理的脚本中添加注释
 259 \*(L"# Here is a workaround because awk is dumb\*(R"
 260 .PP
 261 awk脚本经常使用在shell脚本中，通过管道接受和输出文本。
 262 大部分时候这种shell脚本“wrapper” 可以和perl合并，
 263 因为perl可以建立输入输出管道，做其他awk不能做的事情。
 264 .PP
 265 对\s-1RSTART\s0 和 \s-1RLENGTH\s0 变量进行引用的脚本可以简单地
 266 修改为对变量$`, $& 和 $\*(R' 的引用，只要他们是在模式匹配的范围之内。
 267 .PP
 268 产生的perl脚本可能含有子程序来处理awk的getline和print函数。由于
 269 a2p通常将正确性放在首位而不是效率，一般可以将子程序重写得更有效率。
 270 .PP
 271 为了提高效率，你可以将子程序中的return去掉，只要返回值是子程序中的
 272 最后一个语句。a2p可以处理最简单的情况，但是不能分析嵌入程序块的情况。
 273 .PP
 274 \s-1ARGV\s0[0] 翻译为 \f(CW$ARGV0\fR，
 275 但是 \s-1ARGV\s0[n] 会翻译为 \f(CW$ARGV\fR[$n]。
 276 遍历 \s-1ARGV\s0[0] 的循环将找不到它。
 277 .SH "环境 (ENVIRONMENT)"
 278 a2p不使用环境变量
 279 .SH "作者 (AUTHORS)"
 280 Larry Wall <\fIlarry@wall.org\fR>
 281 .SH "文件 (FILE)"
 282 .SH "另见 (SEE ALSO)"
 283 .PP
 284 .Vb 3
 285 \& perl   perl 编译器和解释器
 286 \&
 287 \& s2p    sed 到 perl的翻译工具
 288 .Ve
 289 .SH "诊断 (DIAGNOSTICS)"
 290 .SH "BUGS"
 291 可以在运行时根据操作数来选择字符还是数字操作，从而模拟awk。
 292 但是这样非常粗野并且无效率。另外，a2p通常都能猜对。
 293 .PP
 294 当前，awk语法树是静态存储的，空间可能会耗尽。
 295 .SH "[中文版维护人]"
 296 袁乙钧 <bbbush@163.com>
 297 .SH "[中文版最新更新]"
 298 .BR 2003/10/25
 299 .SH "《中国Linux论坛man手册页翻译计划》"
 300 http://cmpp.linuxforum.net
 301
 302 .rn }` ''
 303 .IX Title "A2P 1"
 304 .IX Name "a2p - Awk to Perl translator"
 305
 306 .IX Header "NAME"
 307
 308 .IX Header "SYNOPSIS"
 309
 310 .IX Header "DESCRIPTION"
 311
 312 .IX Subsection "Options"
 313
 314 .IX Item "\fB\-D<number>\fR"
 315
 316 .IX Item "\fB\-F<character>\fR"
 317
 318 .IX Item "\fB\-n<fieldlist>\fR"
 319
 320 .IX Item "\fB\-<number>\fR"
 321
 322 .IX Item "\fB\-o\fR"
 323
 324 .IX Subsection "\*(M"Considerations\*(S""
 325
 326 .IX Header "ENVIRONMENT"
 327
 328 .IX Header "AUTHOR"
 329
 330 .IX Header "FILES"
 331
 332 .IX Header "SEE ALSO"
 333
 334 .IX Header "DIAGNOSTICS"
 335
 336 .IX Header "BUGS"
 337