Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Help !! perl open function
Top Forums Shell Programming and Scripting Help !! perl open function Post 302523327 by dynamax on Wednesday 18th of May 2011 12:16:54 PM
Old 05-18-2011
Help !! perl open function
Help Please perl Gurus,

I am trying to add ungrouped passengers in a group and I creating a script however it fails on first step only I tried all the options it returns following error.

syntax error at junki line 4, near "open "
Execution of junki aborted due to compilation errors.
at junki line 14

Here is my code
Code:
#!/usr/bin/perl -w 
$bookid = 3456 
 
open (LSOUT, "res_list -avail -bookid $bookid |" ); 
while ($LINEINc = <LSOUT>) 
{ 
  chomp ($LINEINc); 
  if ( $LINEINc =~ "no/name") 
  { 
    print "$passid\n"; 
  } 
} 
close (LSOUT); 
exit;

Usually I use following commands to do it manually.
Code:
# res_list -avail 
ID Availability Pass Name GroupName Total Pass 
0050 booked abc xyz no/name's 8 
0051 booked abc xyz roth 8 
0052 booked abc xyz no/name's 8 
0053 booked abc xyz no/name's 8 
0054 booked abc xyz bengal 9 
0055 booked abc xyz no/name's 9 
0056 booked abc xyz brown 9 
0057 booked abc xyz no/name's 9 
0058 booked abc xyz eagle 9 
0059 booked abc xyz no/name's 9 
005A booked abc xyz no/name's 9

select only 3 ID's where group name is noname and list them in a comma saperated format like 0050,0052,0053....

then run following command to make sure they are not member any other groups.
Code:
#search_grp -passid 0050,0052,0053 

ID Group Name Pass. Count loc Count 
---- -------------------------------- ----- ----- 
0050 - - - 
0052 - - - 
0053 - - -

if they are not member of any group then print in the following format in file - name grpid_class
Code:
create group ID 0050, class=leisure; 
copy id 0052 to group id 0050; 
copy id 0053 to group id 0050;

once they are displayed to user run the file in following command
Code:
#create_group -f 0050_leisure

succuessful display message.
Last edited by Scott; 05-18-2011 at 04:34 PM.. Reason: Code tags, please...
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

function to test if file is open

I need to write a function that will work in sh/ksh shell that will test to see if a file has already been opened for writting by another user has anyone written something like this? (3 Replies)
Discussion started by: johnsonbryce
3 Replies

2. Shell Programming and Scripting

perl window.open without blocker

Hi Everyone, We know that when we open a popup window, if my IE, Yahoo tool bar enable the popup-blocker, then my window will be blocked. like my code. print <<EOD; <script language=JavaScript> var s = new String(window.location.href); if (s.match(/Start/)){ ... (3 Replies)
Discussion started by: jimmy_y
3 Replies

3. UNIX and Linux Applications

Sybase help: Open client, bcp function

To begin: I use Linux The Problem: I need bcp functionality for scripts. Perl modules, such as Sybase:xfer, require ctlib which comes with Sybase Open Client. Talking with Sybase sales reps is an exercise in futility and hate. They know absolutely nothing about their own products and will... (0 Replies)
Discussion started by: Bubnoff
0 Replies

4. Programming

Open function of sys/stat.h

If a process already has the entire file locked for read and write using newstruct.l_type = F_WRLCK; what would happen if another process would try to open it in read only mode using open(filename, O_RDONLY); ? I want to check if the file exists and I want it to work even if another process has... (4 Replies)
Discussion started by: cyler
4 Replies

5. Shell Programming and Scripting

Unable to open a file in perl

Not able to open a file using this code why not? use strict; use warnings; my $file = "verInfo.txt"; unless(open FILE, $file) { # Die with error message # if we can't open it. die "\nUnable to open $file\n"; } my $line = <FILE>; print $line; close FILE; (7 Replies)
Discussion started by: srijith
7 Replies

6. Shell Programming and Scripting

open a webpage through perl script

Hi All Can anyone please help me how to open a webpage suppose(Google) with the help of perl script and refresh it after every 5 minutes. (0 Replies)
Discussion started by: parthmittal2007
0 Replies

7. Shell Programming and Scripting

PERL - issue with OPEN

Hi, I have a menu script written in PERL which calls some shell scripts and displays the return. I'm having a problem with OPEN. A section of the code is below: `./scriptlist.ksh 1`; open OUTPUT, "</home/$SCRIPTUSER/output"; { local $/ = undef; $_ =... (2 Replies)
Discussion started by: chris01010
2 Replies

8. Programming

Function open() sets errno

I am opening a text file using open() system call in O_RDONLY mode. open() returns me a valid handler but also sets errno to 13 i.e. EACCES(Permission denied). Question is when open() is returning a valid handler then why does it sets the errno? Should not errno be set only in case of error... (10 Replies)
Discussion started by: rupeshkp728
10 Replies

9. Shell Programming and Scripting

Open file function

Hello all, just a quick little part of code i'm writing to check if the file i'm writing too in my automatic process is not being written too manually. #!/bin/bash FUSER=$(/sbin/fuser -s /toto.tmp >/dev/null 2>&1) LSOF=$(/usr/sbin/lsof | grep -q "toto.tmp") PGREP=$(pgrep -f "toto.tmp" >... (6 Replies)
Discussion started by: maverick72
6 Replies

10. Shell Programming and Scripting

Converting shell to Perl I run into shell built in function trap and need alternative in Perl

I am working on converting shell to Perl script. In shell we have built in function trap Do you know alternative in Perl or actually we don't need it? Thanks for contribution (3 Replies)
Discussion started by: digioleg54
3 Replies

LEARN ABOUT DEBIAN

alien::package::rpm

Alien::Package::Rpm(3pm)				User Contributed Perl Documentation				  Alien::Package::Rpm(3pm)

NAME

       Alien::Package::Rpm - an object that represents a rpm package

DESCRIPTION

       This is an object class that represents a rpm package. It is derived from Alien::Package.

FIELDS

       prefixes
	   Relocatable rpm packages have a prefixes field.

METHODS

       checkfile
	   Detect rpm files by their extention.

       install
	   Install a rpm. If RPMINSTALLOPT is set in the environement, the options in it are passed to rpm on its command line.

       scan
	   Implement the scan method to read a rpm file.

       unpack
	   Implement the unpack method to unpack a rpm file. This is a little nasty because it has to handle relocatable rpms and has to do a bit
	   of permissions fixing as well.

       prep
	   Prepare for package building by generating the spec file.

       cleantree
	   Delete the spec file.

       build
	   Build a rpm. If RPMBUILDOPT is set in the environement, the options in it are passed to rpm on its command line.

	   An optional parameter, if passed, can be used to specify the program to use to build the rpm. It defaults to rpmbuild.

       version
	   Set/get version.

	   When retreiving the version, remove any dashes in it.

       postinst
       postrm
       preinst
       prerm
	   Set/get script fields.

	   When retrieving a value, we have to do some truely sick mangling. Since debian/slackware scripts can be anything -- perl programs or
	   binary files -- and rpm is limited to only shell scripts, we need to encode the files and add a scrap of shell script to make it
	   unextract and run on the fly.

	   When setting a value, we do some mangling too. Rpm maintainer scripts are typically shell scripts, but often lack the leading shebang
	   line.  This can confuse dpkg, so add the shebang if it looks like there is no shebang magic already in place.

	   Additionally, it's not uncommon for rpm maintainer scripts to contain bashisms, which can be triggered when they are ran on systems
	   where /bin/sh is not bash. To work around this, the shebang line of the scripts is changed to use bash.

	   Also, if the rpm is relocatable, the script could refer to RPM_INSTALL_PREFIX, which is set by rpm at run time. Deal with this by
	   adding code to the script to set RPM_INSTALL_PREFIX.

       arch
	   Set/get arch field. When the arch field is set, some sanitizing is done first to convert it to the debian format used internally. When
	   it's retreived it's converted back to rpm form from the internal form.

AUTHOR

       Joey Hess <joey@kitenet.net>

perl v5.14.2							    2011-08-05						  Alien::Package::Rpm(3pm)
All times are GMT -4. The time now is 08:19 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy