diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-11-12 12:25:37 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-11-12 12:25:37 +0200 |
| commit | b51e8a24c0aa1b5e6f247fb8d290bd79c0b50652 (patch) | |
| tree | 2f7d35e3e6aaece3b3d60a8761a1c44cdfe3346e /test/patsplit.awk | |
| parent | 40b3741f63c19e38077d57f4ce4737916ec5073e (diff) | |
| download | egawk-b51e8a24c0aa1b5e6f247fb8d290bd79c0b50652.tar.gz egawk-b51e8a24c0aa1b5e6f247fb8d290bd79c0b50652.tar.bz2 egawk-b51e8a24c0aa1b5e6f247fb8d290bd79c0b50652.zip | |
Commit all changes for development gawk.
Diffstat (limited to 'test/patsplit.awk')
| -rw-r--r-- | test/patsplit.awk | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test/patsplit.awk b/test/patsplit.awk new file mode 100644 index 00000000..af2813aa --- /dev/null +++ b/test/patsplit.awk @@ -0,0 +1,26 @@ +BEGIN { + FALSE = 0 + TRUE = 1 + + fpat[1] = "([^,]*)|(\"[^\"]+\")" + fpat[2] = fpat[1] + fpat[3] = fpat[1] + fpat[4] = "aa+" + fpat[5] = fpat[4] + + data[1] = "Robbins,,Arnold," + data[2] = "Smith,,\"1234 A Pretty Place, NE\",Sometown,NY,12345-6789,USA" + data[3] = "Robbins,Arnold,\"1234 A Pretty Place, NE\",Sometown,NY,12345-6789,USA" + data[4] = "bbbaaacccdddaaaaaqqqq" + data[5] = "bbbaaacccdddaaaaaqqqqa" # should get trailing qqqa + + for (j = 1; j in data; j++) { + printf("Splitting: <%s>\n", data[j]) + n = patsplit(data[j], fields, fpat[j], seps) + print "n =", n + for (i = 1; i <= n; i++) + printf("fields[%d] = <%s>\n", i, fields[i]) + for (i = 0; i in seps; i++) + printf("seps[%s] = <%s>\n", i, seps[i]) + } +} |