04-03-2009
This might be more accurate:
@charArray = split(/\bfrom\b/i, $CUTLINE);
otherwise 'from' could be a substring of another word and will split the file incorrectly. 'i' makes the match case-insensitive so 'FROM' and 'from' will match.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I am trying to split input that looks like
,2005-09-12 01:45:00.000000,2005-09-12 01:48:18.000000,
I want to split on the dot .
What I am using is ($ev_time,$rol)=split(/\./),$inputfile;
This does not recognize the dot as what I want to split on. (2 Replies)
Discussion started by: reggiej
2 Replies
2. UNIX for Dummies Questions & Answers
Hi friends,
What are the possible ways to connect to DB2 database from Perl (on unix).
I need to connect to DB2 and get records for further processing. Can you please suggest the best possible way. I heard about DBI/DBD, if you have some sample scripts please post them too.
Thanks in advance. (3 Replies)
Discussion started by: satguyz
3 Replies
3. Shell Programming and Scripting
Let's say I have a very long string with no spaces but just words stored in $very_long_string.
$very_long_string = "aaaaaaaaaaabbbbbbbbbbbccccccccccccdddddddddddd";
I can do this to split the string into 1 character each and store them in an array:
@myArray = split(//, $very_long_string); ... (3 Replies)
Discussion started by: teiji
3 Replies
4. Shell Programming and Scripting
If i have a script name.pl
I run it like name.pl -v file.txt -t ext2 -u user -j
how can I edit the array @ARGV so when my script calls
$ARGV = -v file.txt
$ARGV = -j (2 Replies)
Discussion started by: 3junior
2 Replies
5. Shell Programming and Scripting
Hi there,
I have an output from a command like this
# ypcat -k netgroup.byuser| grep steven
steven.* users_main,users_sysadmin,users_global,users_backup_team
and wanted to pull the 'users' netgroups returned into a perl array, that will look like this
users_main... (2 Replies)
Discussion started by: rethink
2 Replies
6. Shell Programming and Scripting
how to link the linux files in perl on the local webpage ????
suppose we have some results and want to get them published on the local webpage of our internal site. how this can be done using HTML and perl together , so that the results are published directly on the webpage.
thanks
kullu (0 Replies)
Discussion started by: kullu
0 Replies
7. Shell Programming and Scripting
Hi,
I'm trying to split a large file into several smaller files
the script will have two input arguments argument1=filename and argument2=no of files to be split.
In my large input file I have a header followed by 100009 records
The first line is a header; I want this header in all my... (9 Replies)
Discussion started by: ramky79
9 Replies
8. Shell Programming and Scripting
I am trying to make a simple perl program that reads 20 characters upstream from the codon ATG in a given sequence. The following is what I have. I just dont know how to make the program read 20 characters upstream from the ATG codon.
print "\nThis program will read 20 characters upstream... (1 Reply)
Discussion started by: patiencenpray
1 Replies
9. Shell Programming and Scripting
I have a perl variable which contains the below value.
$var1 = "2% / 51%"
Now I would like to split the data into 2 different variables.
For example
$part1 = 2
$part2 = 51
Could anyone please help me in this regard ?
Regards,
GS (4 Replies)
Discussion started by: giridhar276
4 Replies
10. Shell Programming and Scripting
Hi All,
I am new to Scripting language.
I want to split a file and create several subfiles using Perl script.
Example :
File format :
Sourcename ID Date Nbr
SU IMYFDJ 9/17/2012 5552159976555
SU BWZMIG 9/14/2012 1952257857887
AR PEHQDF 11/26/2012 ... (13 Replies)
Discussion started by: Deepak9870
13 Replies
LEARN ABOUT OSX
dbix::class::sqlmaker
DBIx::Class::SQLMaker(3) User Contributed Perl Documentation DBIx::Class::SQLMaker(3)
NAME
DBIx::Class::SQLMaker - An SQL::Abstract-based SQL maker class
DESCRIPTION
This module is a subclass of SQL::Abstract and includes a number of DBIC-specific workarounds, not yet suitable for inclusion into the
SQL::Abstract core. It also provides all (and more than) the functionality of SQL::Abstract::Limit, see
DBIx::Class::SQLMaker::LimitDialects for more info.
Currently the enhancements to SQL::Abstract are:
o Support for "JOIN" statements (via extended "table/from" support)
o Support of functions in "SELECT" lists
o "GROUP BY"/"HAVING" support (via extensions to the order_by parameter)
o Support of "...FOR UPDATE" type of select statement modifiers
o The "-ident" operator
o The "-value" operator
OPERATORS
-ident
Used to explicitly specify an SQL identifier. Takes a plain string as value which is then invariably treated as a column name (and is being
properly quoted if quoting has been requested). Most useful for comparison of two columns:
my %where = (
priority => { '<', 2 },
requestor => { -ident => 'submitter' }
);
which results in:
$stmt = 'WHERE "priority" < ? AND "requestor" = "submitter"';
@bind = ('2');
-value
The -value operator signals that the argument to the right is a raw bind value. It will be passed straight to DBI, without invoking any of
the SQL::Abstract condition-parsing logic. This allows you to, for example, pass an array as a column value for databases that support
array datatypes, e.g.:
my %where = (
array => { -value => [1, 2, 3] }
);
which results in:
$stmt = 'WHERE array = ?';
@bind = ([1, 2, 3]);
AUTHORS
See "CONTRIBUTORS" in DBIx::Class.
LICENSE
You may distribute this code under the same terms as Perl itself.
perl v5.16.2 2012-08-23 DBIx::Class::SQLMaker(3)