Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/bin/usr/perl -w
- use strict;
- print "Enter your input filename for original sample data values: n";
- chomp($data=<STDIN>);
- print "Enter your input filename for adjustment valuesn";
- chomp($adj=<STDIN>) ;
- print "Enter your output filename for resultant adjusted new sample data n";
- chomp($new=<STDIN>);
- open(R1,"$data") or die("error");
- open(R2,"$adj") or die ("error");
- open(WW,"+>$new") or die ("error");
- while( ($line1=(<R1>)) && ($line2=(<R2>)) )
- {
- $l1=$line1;
- @arr1= split(" ",$l1);
- $l2=$line2;
- @arr2= split(" ",$l2);
- $l= ( scalar@arr1);
- $p= (scalar@arr2);
- for ( $i = 0; $i <= $l; $i++ ){
- for ( $j =($i+1); $j <= $l; $j++ ){
- if ($arr1[$i]< $arr1[$j]){
- $a = $arr1[$i] + ($arr2[$i]/2);
- $b = $arr1[$j] - ($arr2[$i]/2);
- push ( $arr1[$i]->$a , $arr1[$j]->$b);
- }
- elsif ( $arr1[$i]= $arr1[$j]){
- $a = $arr1[$i];
- $b = $arr1[$j];
- push ($arr1[$i]->$a,$arr1[$j]->$b);
- }
- else{
- $a = $arr1[$i]-($arr2[$i]/2);
- $b = $arr1[$j]+ ($arr2[$i]/2);
- push ($arr1[$i]->$a,$arr1[$j]->$b);
- }
- }
- }
- $l1 = scalar@arr1;
- for ($k = 0; $k <= $l1 ; $k++)
- {
- if (($k % 10) != 0){
- print WW "$arr1[$k]";
- print WW "t" ;
- }
- else {
- print WW "n";
- print WW "$arr1[$k]";
- print WW "t";
- }
- }
- }
- close(R1);
- close(R2);
- close(WW);
- exit;
- @array1
- 1 2 3 4 5 6 7 8 9 10
- @array2
- 1 2 3 4 5 6 7 8 9 10 9 8 7 6 5 4 3 2
- @array1
- 15 1.5 2 3 6 4 11.5 5 5.5
- elsif ( $arr1[$i]= $arr1[$j]){
- elsif ( $arr1[$i] == $arr1[$j]){
- for ( $i = 0; $i <= $l; $i++ ){
- for ( $j =($i+1); $j <= $l; $j++ ){
- if ($arr1[$i]< $arr1[$j]){
- $a = $arr1[$i] + ($arr2[$i]/2);
- $b = $arr1[$j] - ($arr2[$i]/2);
- # push ( $arr1[$i]->$a , $arr1[$j]->$b);
- }
- elsif ( $arr1[$i] == $arr1[$j]){
- $a = $arr1[$i];
- $b = $arr1[$j];
- # push ($arr1[$i]->$a,$arr1[$j]->$b);
- }
- else{
- $a = $arr1[$i]-($arr2[$i]/2);
- $b = $arr1[$j]+ ($arr2[$i]/2);
- # push ($arr1[$i]->$a,$arr1[$j]->$b);
- }
- $arr1[$i] = $a;
- $arr1[$j] = $b;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement