Greetings,
I'm new at PERL but I have scripting experience in a proprietery language (very c+ like but less type strict). I need a quick turn-around for the BOSS and can't take the time to dive deep into PERL the way I'd like to, so I'm turning to everyone for some help. PLEASE.
PERL is up and running on NT just fine.
I have a CSV file in rows that has been extracted from the Novell NDS. Below is a sample of that data. I want the results from the "Login Script" portion only if it has a #Capture in the value.
------------------------------------------------------------
"User Name","Object Container Name (DN)","Login Script Contents"
"Davismic","Anywhere.ABCDEF","#CAPTURE L=2 Q=.COL2007Q1.ABCDEF NB NFF"
"Dolced","Anywhere.ABCDEF","#CAPTURE L=2 Q=.COL2007Q1.ABCDEF NB NFF"
"Kaysert","Anywhere.ABCDEF","IF NETWORK_ADDRESS = "D4CFF853" THEN GOTO STOP"
"Kaysert","Anywhere.ABCDEF","IF P_STATION<="00000000FFFF" THEN GOTO STOP"
------------------------------------------------------------
I've seen these files sizes to be several MB.
GOAL:
have output that has
"User Name" , "Login Script" if it has a #capture in the value.
My first thoughts were to try to match on the "<line feed>" string. I know that it is an OD OA in hex but can I use that in PERL?
Any direction is greatly. . . no GREATLY appreciated.
Thanks,
Stel [sig][/sig]
I'm new at PERL but I have scripting experience in a proprietery language (very c+ like but less type strict). I need a quick turn-around for the BOSS and can't take the time to dive deep into PERL the way I'd like to, so I'm turning to everyone for some help. PLEASE.
PERL is up and running on NT just fine.
I have a CSV file in rows that has been extracted from the Novell NDS. Below is a sample of that data. I want the results from the "Login Script" portion only if it has a #Capture in the value.
------------------------------------------------------------
"User Name","Object Container Name (DN)","Login Script Contents"
"Davismic","Anywhere.ABCDEF","#CAPTURE L=2 Q=.COL2007Q1.ABCDEF NB NFF"
"Dolced","Anywhere.ABCDEF","#CAPTURE L=2 Q=.COL2007Q1.ABCDEF NB NFF"
"Kaysert","Anywhere.ABCDEF","IF NETWORK_ADDRESS = "D4CFF853" THEN GOTO STOP"
"Kaysert","Anywhere.ABCDEF","IF P_STATION<="00000000FFFF" THEN GOTO STOP"
------------------------------------------------------------
I've seen these files sizes to be several MB.
GOAL:
have output that has
"User Name" , "Login Script" if it has a #capture in the value.
My first thoughts were to try to match on the "<line feed>" string. I know that it is an OD OA in hex but can I use that in PERL?
Any direction is greatly. . . no GREATLY appreciated.
Thanks,
Stel [sig][/sig]