14 lines
145 B
Awk
14 lines
145 B
Awk
|
BEGIN {
|
||
|
|
FS = "[_/\".]"
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
for (i = 5; i <= NF; i++) {
|
||
|
|
if ($i ~ $4) {
|
||
|
|
print $0
|
||
|
|
break
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|