|
Server IP : 82.165.83.148 / Your IP : 216.73.216.169 Web Server : Apache System : Linux info 3.0 #1337 SMP Tue Jan 01 00:00:00 CEST 2000 all GNU/Linux User : u67745506 ( 4824611) PHP Version : 7.0.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF Directory (0755) : /mnt/../boot/../usr/share/aspell/../mc/../doc/ghostscript/../mawk/examples/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
#!/usr/bin/mawk -f
# ct_length.awk
#
# replaces all length
# by length($0)
#
{
while ( i = index($0, "length") )
{
printf "%s" , substr($0,1, i+5) # ...length
$0 = substr($0,i+6)
if ( match($0, /^[ \t]*\(/) )
{
# its OK
printf "%s", substr($0, 1, RLENGTH)
$0 = substr($0, RLENGTH+1)
}
else # length alone
printf "($0)"
}
print
}