Any idea how to get it to display the number line it's on? I thought of adding a counting integer variable to the code which would increment "++" if it finds a match, but not sure if that would work right? I also would like to swap the case switch for an if loop so I can keep the shell sort function in the same shell (and not have to call a second shell), unless you know how I can put multiple lines of code in a case switch (not just one thing; I've tried to put multiple lines in a case but cannot get that to work right)?
You already put the content lines of the file into an array, so you can use the array index to display the line number. Using an extra counter is not necessary. Please see the comments in the code below.
Code:
#!/usr/bin/perl -w
# Why need this line?
#use 5.010;
my $look = shift;
print "Enter a word to search for\n";
my $find = <STDIN>;
chomp($find); # Remove the newline at the end. Otherwise, pattern matching will fail
print "Lines that matched $find\n";
open(FILE, "<$look");
my @file_array = <FILE>;
my $found = 0; # Use a flag to indicate the word can be matched or not
# Use for loop and (i + 1) will be the line number
for (my $i = 0; $i < @file_array; $i++)
{
my $line = $file_array[$i];
chomp($line); # Remove the newline at the end before matching
if ($line =~ m/$find/i)
{
print "The word $find is found on line ".($i + 1).": $line\n"; # Display the matched line with (i + 1) as line number
$found = 1;
}
}
# Put this out of the loop since it should display only once
print "Not found\n" if (!$found);
close FILE;
Last edited by MacMonster; 10-25-2011 at 12:18 AM..
Reason: Add some comments
This User Gave Thanks to MacMonster For This Post:
i have a function defined in one ksh (ksh 1)
i want to use that function in another ksh (ksh 2)
i am using
. $<directoryname>/<ksh name>
i am calling the function defined in ksh 1 in ksh 2
i want the returnstatus from the above operation
but it is not executing the function
what i... (1 Reply)
Hi,
I have searched the forum for the query, But i didnt find an exact answer.
I have a script(1.sh) and a c program(sample.c)
sample.c contains many function definitions.( run(), find(), add() etc).
I want to call functions in sample.c from 1.sh and use the return value in 1.sh... (3 Replies)
Some Code
After Some code part is executed the control doesnt go to rvin_doxx_scrt.. and the script exits
rvin_doxx_scrt()
{
Some Code
}
if (som code)
... (4 Replies)
This is my function which is creating three variables based on counter & writing these variable to database by calling another function writeRecord
but only one record is getting wrote in DB.... Please advise ASAP...:confused:
function InsertFtg
{
FTGSTR=""
echo "Saurabh is GREAT $#"
let... (2 Replies)
Hello all,
I know this is Unix forum, but i also know that there are some experts here who can help me out with this situation;
I am loading a data file into oracle table using Perl script by calling sqlldr script.
It does not do anything, and no data is getting loaded.
Any help,... (2 Replies)
I need to
1.Open a csv
2.Process the csv i.e. Modify 2 column in the csv.
To modify the column the value needs to be passed to a pl/sql function and the return value should be updated
For eg:
If column 2 E,then E will be passed in database function
which will return Employee.
3. Write a... (5 Replies)
I have a function which does awk proceessing
sub mergeDescription {
system (q@awk -F'~' '
NR == FNR {
A = $1
B = $2
C = $0
next
}
{
n = split ( C, V, "~" )
if... (3 Replies)
Hi,
I am new to shell scripting and i need to write a automation script to execute sql files. I need to check the table if it is there in system tables and need to write a function to call the .sql files.
For ex. I have a.sql,b.sql,c.sql files, where the sql file contains DELETE and INSERT... (1 Reply)
Discussion started by: Samah
1 Replies
LEARN ABOUT DEBIAN
dancer::template::templatetoolkit
Dancer::Template::TemplateToolkit(3pm) User Contributed Perl Documentation Dancer::Template::TemplateToolkit(3pm)NAME
Dancer::Template::TemplateToolkit - Template Toolkit wrapper for Dancer
DESCRIPTION
This class is an interface between Dancer's template engine abstraction layer and the Template module.
This template engine is recomended for production purposes, but depends on the Template module.
In order to use this engine, use the template setting:
template: template_toolkit
This can be done in your config.yml file or directly in your app code with the set keyword.
Note that by default, Dancer configures the Template::Toolkit engine to use <% %> brackets instead of its default [% %] brackets. This
can be changed within your config file - for example:
template: template_toolkit
engines:
template_toolkit:
start_tag: '[%'
stop_tag: '%]'
You can also add any options you would normally add to the Template module's initialization. You could, for instance, enable saving the
compiled templates:
engines:
template_toolkit:
COMPILE_DIR: 'caches/templates'
COMPILE_EXT: '.ttc'
By default, Template is used, but you can configure Dancer to use a subclass with the "subclass" option.
engines:
template_toolkit:
subclass: My::Template
WRAPPER, META variables, SETs
Dancer already provides a WRAPPER-like ability, which we call a "layout". The reason we do not use TT's WRAPPER (which also makes it
incompatible with it) is because not all template systems support it. Actually, most don't.
However, you might want to use it, and be able to define META variables and regular Template::Toolkit variables.
These few steps will get you there:
o Disable the layout in Dancer
You can do this by simply commenting (or removing) the "layout" configuration in the config.yml file.
o Use Template Toolkit template engine
Change the configuration of the template to Template Toolkit:
# in config.yml
template: "template_toolkit"
o Tell the Template Toolkit engine who's your wrapper
# in config.yml
# ...
engines:
template_toolkit:
WRAPPER: layouts/main.tt
Done! Everything will work fine out of the box, including variables and META variables.
SEE ALSO
Dancer, Template
AUTHOR
This module has been written by Alexis Sukrieh
LICENSE
This module is free software and is released under the same terms as Perl itself.
perl v5.14.2 2012-01-27 Dancer::Template::TemplateToolkit(3pm)