qse/ase/test/awk/t12.awk

35 lines
515 B
Awk
Raw Normal View History

2006-06-28 10:46:49 +00:00
BEGIN
{
2006-06-29 14:38:01 +00:00
/*
2006-06-28 10:46:49 +00:00
print "line 1" >> "1";
print "line 2" > "1";
print "line 3" >> "1";
print "line 4" >> "2";
print "line 4" >> "3";
print "line 4" >> "4";
2006-06-28 14:19:01 +00:00
while ((getline x < "abc") > 0) print x;
2006-06-29 09:21:00 +00:00
close ("abc");
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~";
getline x < "abc";
if (x == "a") print "xxxxxxxxxxxxxxxx"; else print x;
2006-06-29 14:38:01 +00:00
*/
/*
print getline x;
print "[", x, "]";
print "--------------";
*/
getline x < "abc";
print x > "abc";
2006-06-30 03:53:16 +00:00
print 1 2 getline j j;
2006-06-29 15:40:30 +00:00
print "abc" 1 + 2 3 + 49 2 / 3;
2006-06-28 10:46:49 +00:00
}