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 DEBIAN

ecaccess-file-move

ECACCESS-FILE-MOVE(1p)					User Contributed Perl Documentation				    ECACCESS-FILE-MOVE(1p)

NAME

       ecaccess-file-move - Move or Rename ECaccess Files

SYNOPSIS

       ecaccess-file-move -version|-help|-manual

       ecaccess-file-move [-debug] source-ecaccess-file target-ecaccess-file

DESCRIPTION

       Allow moving an ECaccess File. When the move occurs within the same ECaccess File System then it is a rename. When the move occurs across
       two different ECaccess File Systems then first a copy is done and then a delete of the original file is done (e.g. similar to ecaccess-
       file-copy ... -erase).

       The source-ecaccess-file and target-ecaccess-file are in the form [domain:][/user-id/]path. Please read the "Shell commands -> File
       Management" section of the "ecaccess" guide for more information on the ECaccess File System.

ARGUMENTS

       source-ecaccess-file
	       The source ECaccess File name.

       target-ecaccess-file
	       The target ECaccess File name.

OPTIONS

       -version
	       Display version number and exits.

       -help   Print a brief help message and exits.

       -manual Prints the manual page and exits.

       -debug  Display the SOAP messages exchanged.

EXAMPLES

       ecaccess-file-move ec:test1.txt ec:test2.txt

       Rename the test1.txt file in the ECFS directory of the authenticated user in test2.txt.

       ecaccess-file-move ec:test1.txt home:test2.txt

       Copy the test1.txt file from the ECFS directory of the authenticated user to the test2.txt file in the $HOME directory of the authenticated
       user, then delete the test1.txt file from ECFS.

SEE ALSO

       ecaccess-file-delete, ecaccess-file-get, ecaccess-file-mget, ecaccess-file-modtime, ecaccess-file-mput, ecaccess-file-rmdir, ecaccess-file-
       copy, ecaccess-file-dir, ecaccess-file-mdelete, ecaccess-file-mkdir, ecaccess-file-chmod, ecaccess-file-put, ecaccess-file-size and
       ecaccess.

perl v5.14.2							    2012-04-16						    ECACCESS-FILE-MOVE(1p)
All times are GMT -4. The time now is 10:54 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy