$string
=
'c:'
#1
|
dirname
|
("/etc/passwd")
|
#2
|
dirname
|
("/etc/")
|
#3
|
dirname
|
(".")
|
#4
|
dirname
|
("c:/")
|
#5
|
dirname
|
("c:/x")
|
#6
|
dirname
|
("c:/Temp/x")
|
#7
|
dirname
|
("/x")
|