Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: perl questions
Top Forums Shell Programming and Scripting perl questions Post 302137415 by ghostdog74 on Tuesday 25th of September 2007 01:41:38 AM
Old 09-25-2007
Quote:
Originally Posted by frustrated1
New to perl and a few questions - usually used to shell scripting but have to write a script to check a few things on windows server and need help..

1. Check for file missing in sequence..

ie. list of file in directory as follows:

file0001.txt
file0002.txt
file0004.txt
file0005.txt
file0006.txt

How do I identify that file0003.txt is missing in the sequence ?
since you are working in windows, here's a vbscript, if you don't mind
Code:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\temp1")
Dim counter
Dim nStore()
counter=1
i =0
fileCount=objFolder.Files.Count
'Store file numbers into array
For Each myFile In objFolder.Files     
	If Left(myFile.Name,4) = "file" And objFSO.GetExtensionName(myFile.Name) = "txt" Then
		m = Right(objFSO.GetBaseName(myFile),4)
		ReDim Preserve nStore(i)
		nStore(i) = m		
		i = i+ 1
	End If 
Next
'go through array, filter out those not in array
For j = 0 To fileCount+1    
	n = String(3,"0") & CStr(counter) 
	MyIndex = Filter(nStore, n)
	If UBound(MyIndex) = -1 Then
		WScript.Echo "file " , n , "not there"
	End If 
	counter=counter+1
Next

ussage on command prompt:
Code:
c:\pathofyourscript> cscript  myscript.vbs


2. search files for a pattern and count the matching occurances?

ie. file1 contains
test
test2
test4
test2
test1

I want to know how to search for test2 and count number of matches.

I would prefer if these were as simple as possible.. simple questions I am sure but I havent used perl before..[/QUOTE]
Code:
Set objFSO = CreateObject("Scripting.FileSystemObject")
myFile = "c:\temp1\file0001.txt"
Set objFile = objFSO.OpenTextFile(myFile,1)
c = 0
Do Until objFile.AtEndOfLine
	line=objFile.ReadLine
	If InStr(1,line,"test2") >0 Then
		c=c+1
	End If
Loop
objFile.Close
WScript.Echo "total count: ", c

 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

bash and Perl interaction questions

hi. i´m working in bash and am trying to create a Perl daemon that controls bash´s behavior. this is actually in preparation for a later project i´ll be working on. basically, i´m looking for a way to have the Perl daemon tell bash what to do. i already have a small daemon that simply prints... (2 Replies)
Discussion started by: deryk
2 Replies

2. Shell Programming and Scripting

Perl: answering automatically to install questions

Hi everybody, I have been looking for an answer to this issue both on google and on the forum, but I couldn't find anything. please help me :eek: As part of an automated (in perl) install of Solaris 9, I would like to be able to answer automaticaly to the question the installer asks.... (2 Replies)
Discussion started by: zaap
2 Replies

3. Shell Programming and Scripting

chess perl program questions

Hello guys, While going over the book, I ran into this chess program and I have few questions 1) on line 40), why is not $chessboard-> ) ??? 40 unless (defined $chessboard->) { 2) 20 foreach my $i (reverse (0..7)) { #Row 1 #!/usr/bin/perl -w 2 # 3 # 4 5 ... (1 Reply)
Discussion started by: hankooknara
1 Replies

4. Shell Programming and Scripting

Perl questions - more

More questions for Perl on Windows (again I apologize its on windows... ) 1. How can I check free disk space on a drive in windows using perl command in a script? 2. How can I check processes running using perl command (as I would normally be able to see in task manager for example) 3. I... (7 Replies)
Discussion started by: frustrated1
7 Replies

5. Shell Programming and Scripting

How to answer the Questions in Perl .

I need to write a script to telnet or ssh a device the execute some commands in device then copy the output in a file, I wrote the script but I faced one issue, when you execute some commands the device asked me a Question, for example : device # copy run tftp device # Source filename ? ... (3 Replies)
Discussion started by: DarkSoul
3 Replies

6. Shell Programming and Scripting

Perl newbie questions!

Hi, So I started to learn perl a few days ago, and I have some problems... One of my problems... #!C:\Perl64\bin\perl.exe -w use LWP::Simple; print "Content-Type: Text/Plain\n\n"; sub pagelinks { return @all = get($_) =~ /href\s*=\s*"?(+)/gis; } @a =... (5 Replies)
Discussion started by: byte1918
5 Replies

7. Homework & Coursework Questions

Print questions from a questions folder in a sequential order

1.) I am to write scripts that will be phasetest folder in the home directory. 2.) The folder should have a set-up,phase and display files I have written a small script which i used to check for the existing users and their password. What I need help with: I have a set of questions in a... (19 Replies)
Discussion started by: moraks007
19 Replies

8. Shell Programming and Scripting

Perl Debug Stepping Answering Questions

I am new to perl and want to get a little better understanding of debugging code in perl. I have a perl script that has questions to be answered like: he following PERL modules are recommended: Crypt::DES Crypt::PasswdMD5 IO::Pty Net::Write::Layer2 String::CRC32 Attempt to install... (0 Replies)
Discussion started by: metallica1973
0 Replies

9. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

LEARN ABOUT V7

shift

shift(1)                                                           User Commands                                                          shift(1)

NAME

       shift - shell built-in function to traverse either a shell's argument list or a list of field-separated words

SYNOPSIS

   sh
       shift [n]

   csh
       shift [variable]

   ksh
       * shift [n]

DESCRIPTION

   sh
       The positional parameters from $n+1 ... are renamed $1 ... . If n is not given, it is assumed to be 1.

   csh
       The  components of argv, or variable, if supplied, are shifted to the left, discarding the first component. It is an error for the variable
       not to be set or to have a null value.

   ksh
       The positional parameters from $n+1 $n+1 ... are renamed $1 ..., default n is 1. The parameter n can  be  any  arithmetic  expression  that
       evaluates to a non-negative number less than or equal to $#.

       On this man page, ksh(1) commands that are preceded by one or two * (asterisks) are treated specially in the following ways:

       1.  Variable assignment lists preceding the command remain in effect when the command completes.

       2.  I/O redirections are processed after variable assignments.

       3.  Errors cause a script that contains them to abort.

       4.  Words,  following a command preceded by ** that are in the format of a variable assignment, are expanded with the same rules as a vari-
           able assignment. This means that tilde substitution is performed after the = sign and word splitting and file name generation  are  not
           performed.

ATTRIBUTES

       See attributes(5) for descriptions of the following attributes:

       +-----------------------------+-----------------------------+
       |      ATTRIBUTE TYPE         |      ATTRIBUTE VALUE        |
       +-----------------------------+-----------------------------+
       |Availability                 |SUNWcsu                      |
       +-----------------------------+-----------------------------+

SEE ALSO

       csh(1), ksh(1), sh(1), attributes(5)

SunOS 5.10                                                          15 Apr 1994                                                           shift(1)
All times are GMT -4. The time now is 09:03 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy