Shell Programming and Scripting

 
1^~^2^~^3^~^4^~^5^~^6^~^7^~^8^~^9

 
 
$string1 = 1^~^2^~^
$string2 = 3^~^4^~^5^~^6^~^7^~^8^~^9

$ sed 's/3/\n&/' file
1^~^2^~^
3^~^4^~^5^~^6^~^7^~^8^~^9

$ sed 's/\^~\^/&\n/2' file
1^~^2^~^
3^~^4^~^5^~^6^~^7^~^8^~^9

$sed 's/[0-9]/\n&/3' file
1^~^2^~^
3^~^4^~^5^~^6^~^7^~^8^~^9

#!/usr/bin/perl -w
use strict;

my $var='1^~^2^~^3^~^4^~^5^~^6^~^7^~^8^~^9';
my ($string1,$string2);

if ($var =~ /^((?:[0-9]+\^~\^){2})(.*)/) {
 $string1 = $1;
 $string2 = $2;
}

if (defined $string1 and defined $string2) {
print "String1 is : $string1\n";
print "String2 is : $string2\n";
}

String1 is : 1^~^2^~^
String2 is : 3^~^4^~^5^~^6^~^7^~^8^~^9

 
if ($var =~ /^((?:[a-zA-Z0-9]*\^~\^){2})(.*)/) {
 $string1 = $1;
 $string2 = $2;
}

#!/bin/bash

string='1^~^2^~^3^~^4^~^5^~^6^~^7^~^8^~^9'

# splitting point
var1=3

string1=`echo "$string" | awk -F["$var1"] '{print $1}'`

string2=`echo "$string" | awk -F["$var1"] -v var1="$var1" '{print var1$2}'`

echo "Original String : $string"

echo "After splitting: "

echo "String1 is : $string1"

echo "String2 is : $string2"

./strings.sh

Original String : 1^~^2^~^3^~^4^~^5^~^6^~^7^~^8^~^9
After splitting: 
String1 is : 1^~^2^~^
String2 is : 3^~^4^~^5^~^6^~^7^~^8^~^9