syntax error at ./grade.pl line 25, near "$_{"


 
Thread Tools Search this Thread
# 1  
syntax error at ./grade.pl line 25, near "$_{"

I want to find the average score of students grde that I have in 2 different files. I want my script to read the each line in each file, print the average. Once it's done print the average in one file, it will move to the next.

I keep getting a line 25, near "$_{" error and cannot figure why.

Thank you Smilie
Code:
#!/usr/bin/perl

#reads line from the file and assigns to $line
while (my $_=<>){
if($ARGV ne $filename){

#total number of scores per student
$total=3;

#read arg 1
$str1=$str;
$str1=~ s/\D*(\d+).*,/$1/;

#read arg2
$str2=$str;
$str2=~ s/\D*\d+\D*(\d+).*,/$1/;

#read arg3
$str3=$str;
$str3=~ s/\D*(\d+)\D*(\d+)\D*(\d+)/$3/;
}
#for every line in file, print name and average...or while
for $_ { <-------
print "****$ARGV****"{($1+$2+$3)/$total},"\n";
        }

}


Last edited by Scott; 12-03-2011 at 09:54 PM.. Reason: Use code tags, please.
 

Previous Thread | Next Thread
Thread Tools Search this Thread
Search this Thread:
Advanced Search

Test Your Knowledge in Computers #9
Difficulty: Easy
A CD-ROM is a type of optical disc that originated in 1982 in South Korea.
True or False?

9 More Discussions You Might Find Interesting

1. BSD

Keep getting error "-bash: ./.profile_z2: line 52: syntax error: unexpected end of file"

#!/bin/bash #-------------------------------------------------------- # Setup prompt # Author Zeeshan Mirza # Data: 06-08-2017 #-------------------------------------------------------- if then . ./.profile_custom_pre fi umask 022 set -o vi export EDITOR=vi export VISUAL=vi... (3 Replies)
Discussion started by: getzeeshan
3 Replies

2. Shell Programming and Scripting

Error"syntax error at line 15: `end of file' unexpected"

While i m running below code, it is giving me the error"syntax error at line 15: `end of file' unexpected". Pls let me know what is wrong here..i tried many ways, but no luck dbSID="SWQE" usrname="apps" password="Wrgthrk3" count=0 while do sqlplus $usrname/$password@$dbSID... (5 Replies)
Discussion started by: millan
5 Replies

3. Shell Programming and Scripting

Help with FTP Script which is causing "syntax error: unexpected end of file" Error

Hi All, Please hav a look at the below peice of script and let me know if there are any syntax errors. i found that the below peice of Script is causing issue. when i use SFTP its working fine, but there is a demand to use FTP only. please find below code and explain if anything is wrong... (1 Reply)
Discussion started by: mahi_mayu069
1 Replies

4. Shell Programming and Scripting

Syntax error near unexpected token `"Hit <ENTER> to continue:"'

the below code will search attr string inside makefile under the modelno on given path. echo "Enter model no for searching string inside makefile" read inputs2 #find /pools/home_unix/sapte/work/models/model/$inputs2 -name "makefile" | xargs grep "attr" \; #;;I am getting below error.... (7 Replies)
Discussion started by: lathigara
7 Replies

5. Shell Programming and Scripting

Bash (Ubuntu server): Syntax error: "|" unexpected in While-loop

Hello forum, I hope my problem is easy to solve for someone in here! My main task is to copy a large amount of imap-accounts from one server to another. There is a tool (Perl) called imapsync which does the job exellent. Unfortunately I'm only able to run it on one account at a time. After... (3 Replies)
Discussion started by: primaxx
3 Replies

6. Shell Programming and Scripting

awk command to replace ";" with "|" and ""|" at diferent places in line of file

Hi, I have line in input file as below: 3G_CENTRAL;INDONESIA_(M)_TELKOMSEL;SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL My expected output for line in the file must be : "1-Radon1-cMOC_deg"|"LDIndex"|"3G_CENTRAL|INDONESIA_(M)_TELKOMSEL"|LAST|"SPECIAL_WORLD_GRP_7_FA_2_TELKOMSEL" Can someone... (7 Replies)
Discussion started by: shis100
7 Replies

7. Shell Programming and Scripting

Getting error "syntax error at line 78 : `<' unmatched"

Hi Guys, I have a following code in cm1.sh script. cnt=`sqlplus -s <un>/<pwd> << !EOF set heading off verify off pagesize 0 select count(*) from fnd_svc_components where component_name like '%Mailer%' and component_status != 'RUNNING'; exit; !EOF` echo $cnt if ; then sqlplus -s... (1 Reply)
Discussion started by: sshah1001
1 Replies

8. UNIX for Dummies Questions & Answers

Explain the line "mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'`"

Hi Friends, Can any of you explain me about the below line of code? mn_code=`env|grep "..mn"|awk -F"=" '{print $2}'` Im not able to understand, what exactly it is doing :confused: Any help would be useful for me. Lokesha (4 Replies)
Discussion started by: Lokesha
4 Replies

9. Shell Programming and Scripting

"syntax error at line 21 :'done' unexpected." error message"

I am trying to run the script bellow but its given me "syntax error at line 20 :'done' unexpected." error message" can someone check to see if the script is ok? and correct me pls. Today is my first day with scripting. Gurus should pls help out #!/bin/ksh # Purpose: Check to see if file... (3 Replies)
Discussion started by: ibroxy
3 Replies
CPANPLUS::Internals::Report(3pm)			 Perl Programmers Reference Guide			  CPANPLUS::Internals::Report(3pm)

NAME
CPANPLUS::Internals::Report - internals for sending test reports SYNOPSIS
### enable test reporting $cb->configure_object->set_conf( cpantest => 1 ); ### set custom mx host, shouldn't normally be needed $cb->configure_object->set_conf( cpantest_mx => 'smtp.example.com' ); DESCRIPTION
This module provides all the functionality to send test reports to "http://testers.cpan.org" using the "Test::Reporter" module. All methods will be called automatically if you have "CPANPLUS" configured to enable test reporting (see the "SYNOPSIS"). METHODS
$bool = $cb->_have_query_report_modules This function checks if all the required modules are here for querying reports. It returns true and loads them if they are, or returns false otherwise. $bool = $cb->_have_send_report_modules This function checks if all the required modules are here for sending reports. It returns true and loads them if they are, or returns false otherwise. @list = $cb->_query_report( module => $modobj, [all_versions => BOOL, verbose => BOOL] ) This function queries the CPAN testers database at http://testers.cpan.org/ for test results of specified module objects, module names or distributions. The optional argument "all_versions" controls whether all versions of a given distribution should be grabbed. It defaults to false (fetching only reports for the current version). Returns the a list with the following data structures (for CPANPLUS version 0.042) on success, or false on failure. The contents of the data structure depends on what http://testers.cpan.org returns, but generally looks like this: { 'grade' => 'PASS', 'dist' => 'CPANPLUS-0.042', 'platform' => 'i686-pld-linux-thread-multi' 'details' => 'http://nntp.x.perl.org/group/perl.cpan.testers/98316' ... }, { 'grade' => 'PASS', 'dist' => 'CPANPLUS-0.042', 'platform' => 'i686-linux-thread-multi' 'details' => 'http://nntp.x.perl.org/group/perl.cpan.testers/99416' ... }, { 'grade' => 'FAIL', 'dist' => 'CPANPLUS-0.042', 'platform' => 'cygwin-multi-64int', 'details' => 'http://nntp.x.perl.org/group/perl.cpan.testers/99371' ... }, { 'grade' => 'FAIL', 'dist' => 'CPANPLUS-0.042', 'platform' => 'i586-linux', 'details' => 'http://nntp.x.perl.org/group/perl.cpan.testers/99396' ... }, The status of the test can be one of the following: UNKNOWN, PASS, FAIL or NA (not applicable). $bool = $cb->_send_report( module => $modobj, buffer => $make_output, failed => BOOL, [save => BOOL, address => $email_to, verbose => BOOL, force => BOOL]); This function sends a testers report to "cpan-testers@perl.org" for a particular distribution. It returns true on success, and false on failure. It takes the following options: module The module object of this particular distribution buffer The output buffer from the 'make/make test' process failed Boolean indicating if the 'make/make test' went wrong save Boolean indicating if the report should be saved locally instead of mailed out. If provided, this function will return the location the report was saved to, rather than a simple boolean 'TRUE'. Defaults to false. address The email address to mail the report for. You should never need to override this, but it might be useful for debugging purposes. Defaults to "cpan-testers@perl.org". verbose Boolean indicating on whether or not to be verbose. Defaults to your configuration settings force Boolean indicating whether to force the sending, even if the max amount of reports for fails have already been reached, or if you may already have sent it before. Defaults to your configuration settings perl v5.18.2 2014-01-06 CPANPLUS::Internals::Report(3pm)

Featured Tech Videos