Hi Guys,
I am trying to write a perl script to search a string "Name" in the file "FILE" and also want to create a new file and push the searched string Name line along with 10 lines following the same.
can anyone of you please let me know how to go about it ? (8 Replies)
continuing from my previous post, whose link is given below as a reference
https://www.unix.com/shell-programming-scripting/171076-shell-scripting.html#post302573569
consider there is create table commands in a file for eg:
CREATE TABLE `Blahblahblah` (
`id` int(11) NOT NULL... (2 Replies)
Hi All,
I am trying to to compare a string variable with a string literal inside a loop but keep getting the
./testifstructure.sh: line 6:
#!/bin/sh
BOOK_LIST="BOOK1 BOOK2"
for BOOK in ${BOOK_LIST}
do
if
then echo '1'
else
echo '2'
fi
done
Please use next... (1 Reply)
here is what i want to achieve... consider a file contains below contents. the file size is large about 60mb
cat dump.sql
INSERT INTO `table1` (`id`, `action`, `date`, `descrip`, `lastModified`) VALUES (1,'Change','2011-05-05 00:00:00','Account Updated','2012-02-10... (10 Replies)
I am attempting to grep an exact string from a series of files within a directory and append that output to the filename when it is present in the file. I've been after this all day with no luck. Thanks for your help in advance :wall:. (4 Replies)
Hi,
I am trying to remove lines once a string is found till another string is found including the start string and end string. I want to basically grab all the lines starting with color (closing bracket). PS: The line after the closing bracket for color could be anything (currently 'more').... (1 Reply)
I am having a text file which is having more than 200 lines.
EX:
001010122 12000 BIB 12000 11200 1200003
001010122 2000 AND 12000 11200 1200003
001010122 12000 KVB 12000 11200 1200003
In the above file i want to search for string KVB and add/replace... (1 Reply)
I need to read a text file and insert a string every n lines, but also have the line counter restart when I come across a header string.
Line repeating working every 3 lines using code:
sed '0~3 s/$/\nINSERT/g' < INPUT/PATH/FILE_NAME.txt > OUTPUT/PATH/FILE_NAME.txt
I cannot seem to find... (1 Reply)
I have the logic below to look up for matches within the columns between the two files with awk.
In the if statement is where the string comparison is attempted with ==
The issue seems to be with the operands, as
1. when " '${SECTOR}' " -- double quote followed by single quote -- awk matches... (1 Reply)
I want to search a small string in a large string and find the locations of the string. For this I used grep "string" -ob <file name where the large string is stored>. Now this gives me the locations of that string. Now how do I store these locations in a text file.
Please use CODE tags as... (7 Replies)
Discussion started by: ANKIT ROY
7 Replies
LEARN ABOUT DEBIAN
debian::dependencies
Debian::Dependencies(3pm) User Contributed Perl Documentation Debian::Dependencies(3pm)NAME
Debian::Dependencies - a list of Debian::Dependency objects
SYNOPSIS
my $dl = Debian::Dependencies->new('perl, libfoo-perl (>= 3.4)');
print $dl->[1]->ver; # 3.4
print $dl->[1]; # libfoo-perl (>= 3.4)
print $dl; # perl, libfoo-perl (>= 3.4)
$dl += 'libbar-perl';
print $dl; # perl, libfoo-perl (>= 3.4), libbar-perl
print Debian::Dependencies->new('perl') + 'libfoo-bar-perl';
# simple 'sum'
print Debian::Dependencies->new('perl')
+ Debian::Dependencies->new('libfoo, libbar');
# add (concatenate) two lists
print Debian::Dependencies->new('perl')
+ Debian::Dependency->new('foo');
# add depeendency to a list
DESCRIPTION
Debian::Dependencies a list of Debian::Dependency objects, with automatic construction and stringification.
Objects of this class are blessed array references. You can safely treat them as arrayrefs, as long as the elements you put in them are
instances of the Debian::Dependency class.
When used in string context, Debian::Dependencies converts itself into a comma-delimitted list of dependencies, suitable for dependency
fields of debian/control files.
CLASS METHODS
new(dependency-string)
Constructs a new Debian::Dependencies object. Accepts one scalar argument, which is parsed and turned into an arrayref of
Debian::Dependency objects. Each dependency should be delimitted by a comma and optional space. The exact regular expression is
"/s*,s*/".
OBJECT METHODS
add( dependency[, ... ] )
Adds dependency (or a list of) to the list of dependencies. If the new dependency is a subset of or overlaps some of the old
dependencies, it is not duplicated.
my $d = Debian::Dependencies('foo, bar (<=4)');
$d->add('foo (>= 4), bar');
print "$d"; # foo (>= 4), bar (>= 4)
dependency can be either a Debian::Dependency object, a Debian::Deendencies object, or a string (in which case it is converted to an
instance of the Debian::Dependencies class).
remove( dependency, ... ) =item remove( dependencies, ... )
Removes a dependency from the list of dependencies. Instances of Debian::Dependency and Debian::Dependencies classes are supported as
arguments.
Any non-reference arguments are coerced to instances of Debian::Dependencies class.
Only dependencies that are subset of the given dependencies are removed:
my $deps = Debian::Dependencies->new('foo (>= 1.2), bar');
$deps->remove('foo, bar (>= 2.0)');
print $deps; # bar
Returns the list of the dependencies removed.
has( dep )
Return true if the dependency list contains given dependency. In other words, this returns true if the list of dependencies guarantees
that the given dependency will be satisfied. For example, "foo, bar" satisfies "foo", but not "foo (>= 5)".
prune()
This method is deprecated. If you want to sort the dependency list, either call "sort" or use normal perl sorting stuff on the
dereferenced array.
sort()
Sorts the dependency list by packagee name, version and relation.
SEE ALSO
Debian::Dependency
AUTHOR
Damyan Ivanov <dmn@debian.org>
COPYRIGHT & LICENSE
Copyright (C) 2008, 2009, 2010 Damyan Ivanov <dmn@debian.org>
Copyright (C) 2009 gregor herrmann <gregoa@debian.org>
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License version 2 as
published by the Free Software Foundation.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation,
Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
perl v5.14.2 2012-01-15 Debian::Dependencies(3pm)