11-09-2010
Problem writing to different files
Hello:
I have the following code:
----------------------------------
open (OUTPUT_FILE, ">>/usr/users/rovolis/PREPAID/CC/TCG/PP.$cyear$cmonth$cday.txt")||die "$!";
82 open (OUTPUT_FILE2, ">>/usr/users/rovolis/PREPAID/CC/TCG/PR.$cyear$cmonth$cday.txt")||die "$!";
83 # print OUTPUT_FILE (join ("|", @array), "\n");
84 # print OUTPUT_FILE2 (join ("|", @array), "\n");
85
86 #Read file line by line
87 while ( $input = <INPUT_FILE> )
88 {
89 my @field = "";
90 @row = split ('\$',$input);
91 foreach $current_row (@row)
92 {
93 if ($current_row ne '')
94 {
95 my @output_cdr=();
96 my $row_matched=0;
97
98 #split the line and store the elements into an array
99 @field = split('\,', $current_row);
100 chomp(@field);
101
102 if($field[0]== " ") #Skip empty lines
103 {
104 next;
105 }
106
107 $linesRead++;
108
109 #Rule for wap test case
110 if($field[9] eq 'postpaid')
111 {
112
113 print OUTPUT_FILE (join (",", @field), "\n");
114 }
115 else
116 {
117
118 print OUTPUT_FILE2(join (",", @field), "\n");
---------------------------------------------------------------
When i run this i get the following error:
Undefined subroutine &main::OUTPUT_FILE2 called at unrated_dls.pl line 118, <INPUT_FILE> line 1.
I do not understand since in line 82 i define OUTPUT_FILE2 handler.
Can you please help?
Best Regards,
Christos
---------- Post updated at 06:01 AM ---------- Previous update was at 05:58 AM ----------
I found the problem, please do not bother with this issue.
Thank you!
10 More Discussions You Might Find Interesting
1. HP-UX
Our system is having a server and multiple clients. We are monitoring the client FDs using select() system call in HP-UX.
After establishing connection-using socket with the remote client, before start sending the data we are checking the status of socket using select( ) call. For first 16... (0 Replies)
Discussion started by: AshokG
0 Replies
2. UNIX for Dummies Questions & Answers
Hi guys
I'm having trouble with trying to create a script which calculates the grade of a student and the marks out of 300.
The grades are:
0-49% fail
50-59% pass
60-69% credit pass
70-79% distinction
80-100% high distinction
less than 0 or greater than 100 displays error message.
My... (1 Reply)
Discussion started by: CompNoob
1 Replies
3. Programming
I'm trying to write a function which opens a file pointer and writes one of the function parameters into the file, however for some reason Im getting a core dump error.
The code is as below
void WriteToFile(char *file_name, char *data)
{
FILE *fptr;
/*disk_name_size is a... (10 Replies)
Discussion started by: JamesGoh
10 Replies
4. UNIX for Advanced & Expert Users
Hi, I have an issue with the file writing...
It is, Suppose that if I am writing some data to a file... and at the same time another user has opened the file and want to write in to the file(writing to the file at the same time)...the another has to know that someone has opened the file, mean... (3 Replies)
Discussion started by: vijay4b7
3 Replies
5. Shell Programming and Scripting
Hello everyone:
I have a script that writes and read DATA in/from a socket, but i have a great problem while writing.
My socket is created in this way:
set connection
fconfigure $connection -encoding binary -translation binary -blocking 1
And the writer procedure is this one:
... (0 Replies)
Discussion started by: trutoman
0 Replies
6. Shell Programming and Scripting
Self professed idot looking for help
LOL
Hi all, I am new to Unix and I have to write a shell script that will check to see if a file exist and then create it if it does not. The file I need to search for is titled "A1. dat" and here is my feeble attempt at creating the script:
#!/bin/bash... (2 Replies)
Discussion started by: Tinablue
2 Replies
7. Shell Programming and Scripting
my default profile is using ksh, I tried to write a simple scripts and I had issues, below is my scripts:
$ more if_num.ksh
USAGE="usage: if_num.ksh"
print -n "Enter two numbers: "
read x y
if ((x=y))
then
print "You entered the same number twice."
when I tried to executed the... (6 Replies)
Discussion started by: matthew00
6 Replies
8. Shell Programming and Scripting
Hi all,
I have a shell script which I use to login to the server from the client and then from the server I run a bunch of other scripts to complete my task. I am having problems with the script below-
#!/bin/bash
while read line
do
connections=`echo $line | cut -d " " -f 1`
period=`echo... (3 Replies)
Discussion started by: joydeep4u
3 Replies
9. Shell Programming and Scripting
I trying to write a script in bash that take a list of users in “fileA” and searches another list user in “fileB” if the user does not exist in “file B” write the user to another file “file C”.
Please note “fileA” and “fileB” contains over 1000 users
Basically
“fileA” “fileB”
... (2 Replies)
Discussion started by: hassan1
2 Replies
10. Shell Programming and Scripting
I have a script which generates env setup xml file by reading path.It read the path and checks if there is any file/dir present recurseively.
If a file is found under sub directory then it will read the file and the values from the file are passed to generate xml format.
Problem is if i have a... (0 Replies)
Discussion started by: Optimus81
0 Replies
LEARN ABOUT FREEBSD
ascii
ASCII(7) BSD Miscellaneous Information Manual ASCII(7)
NAME
ascii -- octal, hexadecimal and decimal ASCII character sets
DESCRIPTION
The octal set:
000 NUL 001 SOH 002 STX 003 ETX 004 EOT 005 ENQ 006 ACK 007 BEL
010 BS 011 HT 012 NL 013 VT 014 NP 015 CR 016 SO 017 SI
020 DLE 021 DC1 022 DC2 023 DC3 024 DC4 025 NAK 026 SYN 027 ETB
030 CAN 031 EM 032 SUB 033 ESC 034 FS 035 GS 036 RS 037 US
040 SP 041 ! 042 " 043 # 044 $ 045 % 046 & 047 '
050 ( 051 ) 052 * 053 + 054 , 055 - 056 . 057 /
060 0 061 1 062 2 063 3 064 4 065 5 066 6 067 7
070 8 071 9 072 : 073 ; 074 < 075 = 076 > 077 ?
100 @ 101 A 102 B 103 C 104 D 105 E 106 F 107 G
110 H 111 I 112 J 113 K 114 L 115 M 116 N 117 O
120 P 121 Q 122 R 123 S 124 T 125 U 126 V 127 W
130 X 131 Y 132 Z 133 [ 134 135 ] 136 ^ 137 _
140 ` 141 a 142 b 143 c 144 d 145 e 146 f 147 g
150 h 151 i 152 j 153 k 154 l 155 m 156 n 157 o
160 p 161 q 162 r 163 s 164 t 165 u 166 v 167 w
170 x 171 y 172 z 173 { 174 | 175 } 176 ~ 177 DEL
The hexadecimal set:
00 NUL 01 SOH 02 STX 03 ETX 04 EOT 05 ENQ 06 ACK 07 BEL
08 BS 09 HT 0A NL 0B VT 0C NP 0D CR 0E SO 0F SI
10 DLE 11 DC1 12 DC2 13 DC3 14 DC4 15 NAK 16 SYN 17 ETB
18 CAN 19 EM 1A SUB 1B ESC 1C FS 1D GS 1E RS 1F US
20 SP 21 ! 22 " 23 # 24 $ 25 % 26 & 27 '
28 ( 29 ) 2a * 2b + 2c , 2d - 2e . 2f /
30 0 31 1 32 2 33 3 34 4 35 5 36 6 37 7
38 8 39 9 3a : 3b ; 3c < 3d = 3e > 3f ?
40 @ 41 A 42 B 43 C 44 D 45 E 46 F 47 G
48 H 49 I 4a J 4b K 4c L 4d M 4e N 4f O
50 P 51 Q 52 R 53 S 54 T 55 U 56 V 57 W
58 X 59 Y 5a Z 5b [ 5c 5d ] 5e ^ 5f _
60 ` 61 a 62 b 63 c 64 d 65 e 66 f 67 g
68 h 69 i 6a j 6b k 6c l 6d m 6e n 6f o
70 p 71 q 72 r 73 s 74 t 75 u 76 v 77 w
78 x 79 y 7a z 7b { 7c | 7d } 7e ~ 7f DEL
The decimal set:
0 NUL 1 SOH 2 STX 3 ETX 4 EOT 5 ENQ 6 ACK 7 BEL
8 BS 9 HT 10 NL 11 VT 12 NP 13 CR 14 SO 15 SI
16 DLE 17 DC1 18 DC2 19 DC3 20 DC4 21 NAK 22 SYN 23 ETB
24 CAN 25 EM 26 SUB 27 ESC 28 FS 29 GS 30 RS 31 US
32 SP 33 ! 34 " 35 # 36 $ 37 % 38 & 39 '
40 ( 41 ) 42 * 43 + 44 , 45 - 46 . 47 /
48 0 49 1 50 2 51 3 52 4 53 5 54 6 55 7
56 8 57 9 58 : 59 ; 60 < 61 = 62 > 63 ?
64 @ 65 A 66 B 67 C 68 D 69 E 70 F 71 G
72 H 73 I 74 J 75 K 76 L 77 M 78 N 79 O
80 P 81 Q 82 R 83 S 84 T 85 U 86 V 87 W
88 X 89 Y 90 Z 91 [ 92 93 ] 94 ^ 95 _
96 ` 97 a 98 b 99 c 100 d 101 e 102 f 103 g
104 h 105 i 106 j 107 k 108 l 109 m 110 n 111 o
112 p 113 q 114 r 115 s 116 t 117 u 118 v 119 w
120 x 121 y 122 z 123 { 124 | 125 } 126 ~ 127 DEL
FILES
/usr/share/misc/ascii
HISTORY
An ascii manual page appeared in Version 7 AT&T UNIX.
BSD
June 5, 1993 BSD