use strict;
use warnings;
my $clean = 'clean.gmly';
my $inconsistent = 'inconsistent.gmly';
open my $clean_fh, '>', $clean or die;
open my $inconsistent_fh, '>', $inconsistent or die;
while(<>) {
my ($lh, $rh) = split /=/;
$lh = split /\s+/, $lh;
$rh = split /\s+/, $rh;
if($lh != $rh) {
print $inconsistent_fh $_;
}
else {
print $clean_fh $_;
}
}
close $clean_fh;
close $inconsistent_fh;
Hi,
I remember once seeing a way to get the left most string in a word.
Let's say: a="First.Second.Third" (separated by dot)
echo ${a#*.} shows --> Second.Third
echo ${a##*.} shows --> Third
How do I get the the left most string "First" Or "First.Second" ???
Tried to replace #... (2 Replies)
i am new to shell scripting. i want to keep on increamenting a 6 digit number. For eg. 000000 + 1 = 000001 But instead of 000001 i get only 1. How do i do this ? Pls help. (8 Replies)
guys,
i am writing a .ksh file to ssh to a remote machine and change all occurances of .ixf to .WIP like this :
-->>> for i in *.ixf do echo $i done mv $i $i.WIP exit <<---
--> this returns .ixf.WIP - i can live with that.
then i need to sftp from another remote machine, copy the files... (5 Replies)
does any one have any ideas how i would go about calculating the number of days left in the month from a bash script ?. I want to do some operations on a csv file according to the result (8 Replies)
I have a awk file which consists of the follwoing code in file select.awk :
/xxx/ {
time = gensub(/xxx \*\*\*(.*)/, "\\1", "g")
printf("%s\n",time)
next
}
and an input file with the following file file.txt :-
xxx ***Wed May 2 18:00:00 CDT 2012
AAA AAAA AAAA xxx... (4 Replies)
Hello,
I am working on an Urdu to Hindi dictionary which has the following structure:
a=b
a=c
n=d
n=q
and so on.
i.e. Headword separated from gloss by a =
I am giving below a live sample
بتا=बता
بتا=बित्ता
بتا=बुत्ता
بتان=बतान
بتان=बितान
بتانا=बिताना
I need the following... (3 Replies)
I need to work with records having #AX in the EXP1 , please see my data sample and my attempt below:
$ cat xx
08:30:33 KEY1 (1255) EXP1 VAL:20AX0030006
08:30:33 KEY1 (1255) EXP1 VAL:20AX0030006
08:30:33 KEY1 (1255) EXP1 VAL:20AW0030006
08:30:33 KEY1 (1255) EXP1 VAL:20AW0030006
$ gawk '{... (1 Reply)
Hello,
I have a large file with the following structure
Englishpseudo syllableEnglishpseudo syllable=IndicsyllableIndicsyllable
An example will make this clear:
la l=ला ल
gi ta=गी ता
ka la va ti=कa ला वa ती
ma h to=मa ह तो
ra je sh=रा जे श
a sha=आ शा
ra me sh=रa मे श
san ja y=सं जa य... (3 Replies)
Discussion started by: gimley
3 Replies
LEARN ABOUT DEBIAN
split
split(3tcl) Tcl Built-In Commands split(3tcl)__________________________________________________________________________________________________________________________________________________NAME
split - Split a string into a proper Tcl list
SYNOPSIS
split string ?splitChars?
_________________________________________________________________DESCRIPTION
Returns a list created by splitting string at each character that is in the splitChars argument. Each element of the result list will con-
sist of the characters from string that lie between instances of the characters in splitChars. Empty list elements will be generated if
string contains adjacent characters in splitChars, or if the first or last character of string is in splitChars. If splitChars is an empty
string then each character of string becomes a separate element of the result list. SplitChars defaults to the standard white-space char-
acters.
EXAMPLES
Divide up a USENET group name into its hierarchical components:
split "comp.lang.tcl.announce" .
-> comp lang tcl announce
See how the split command splits on every character in splitChars, which can result in information loss if you are not careful:
split "alpha beta gamma" "temp"
-> al {ha b} {} {a ga} {} a
Extract the list words from a string that is not a well-formed list:
split "Example with {unbalanced brace character"
-> Example with {unbalanced brace character
Split a string into its constituent characters
split "Hello world" {}
-> H e l l o { } w o r l d
PARSING RECORD-ORIENTED FILES
Parse a Unix /etc/passwd file, which consists of one entry per line, with each line consisting of a colon-separated list of fields:
## Read the file
set fid [open /etc/passwd]
set content [read $fid]
close $fid
## Split into records on newlines
set records [split $content "
"]
## Iterate over the records
foreach rec $records {
## Split into fields on colons
set fields [split $rec ":"]
## Assign fields to variables and print some out...
lassign $fields
userName password uid grp longName homeDir shell
puts "$longName uses [file tail $shell] for a login shell"
}
SEE ALSO join(3tcl), list(3tcl), string(3tcl)KEYWORDS
list, split, string
Tclsplit(3tcl)