Shell Programming and Scripting

This should do what you want.

Code:

 
ls | perl -00 -lane 'BEGIN{$,=","}END{print map {qq|\x27$_\x27|} @F;}'

Hi,

can u please explain the below line :

print map {qq|\x27$_\x27|} @F;

27 is the hexcode for ' (single quote) charecter. Since you wanted your output to be wrapped inside it, added that piece of code to map it.

Hi,

xtremly sorry .. I am not getting the solution mention by you

but want to insert the file names as shown below in bold:

CREATE TABLE PROD_BKP
(
Column1 NUMBER(20),
Column2 VARCHAR2(25),
Column3 NUMBER(1),
Column4 NUMBER(10),
Column5 NUMBER(10)
)
ORGANIZATION EXTERNAL
( TYPE ORACLE_LOADER
DEFAULT DIRECTORY EXTRACT_DIR
ACCESS PARAMETERS
( RECORDS DELIMITED BY NEWLINE
FIELDS TERMINATED BY '|'
MISSING FIELD VALUES ARE NULL
)
LOCATION (EXTRACT_DIR:'prod_bkp_140611_13_30_05.txt','prod_bkp_140611_14_30_05.txt','prod_bkp_140611_15_30_05.t xt','prod_bkp_140611_16_30_05.txt')
)
REJECT LIMIT UNLIMITED
PARALLEL ( DEGREE 5 INSTANCES 1 )
NOMONITORING;

my @Array = <*.txt>;

print "EXTRACT_DIR:'".join("','", @Array)."'";

This can be solve your problem.

Code:

ls | perl -00 -lane 'BEGIN{$,=","}END{print map {qq|\x27$_\x27|} @F;}'

Consider this as the output of your ls command

Code:

 
File1
File2

This will get stored in @F array like below.

Code:

 
$F[0] = File1
$F[1] = File2

Since you wanted the output separted by comma $, (output separtor in perl) is set as -.

But if you try to print the @F now you'll get an output like this without the single quotes

Code:

File1,File2

Since you wanted every item of array @F to be wrapped in single quotes below statement is added before print.

Code:

 
print map {qq|\x27$_\x27|} @F

This is same as writing

Code:

 
print map {"\x27$_\x27"} @F

Map function wraps the array contents inside a single quote. (x27 is hex code equivalent of ' ).

Hi,

Instead of 'print' I want the values of @F to be used/added as below in the command:

LOCATION (EXTRACT_DIR:'prod_bkp_140611_13_30_05.txt','prod_bkp_140611_14_30_05.txt','prod_bkp_140611_15_30_05.t xt','prod_bkp_140611_16_30_05.txt')

I tried as below but not working:

LOCATION (EXTRACT_DIR:map {"\x27$_\x27"} @files)