Revision as of 19:08, 8 January 2013 view sourceMcGeddon (talk | contribs)Extended confirmed users, Pending changes reviewers, Rollbackers121,439 edits Reverted to revision 528935967 by McGeddon: last good version. (TW)← Previous edit | Revision as of 08:13, 24 January 2013 view source Ankur.verma11111 (talk | contribs)1 editNo edit summaryNext edit → | ||
Line 4: | Line 4: | ||
'''Article''' may refer to: | '''Article''' may refer to: | ||
*], articles of treaties of the European Union | *], articles of treaties of the European Union | ||
*], |
*], | ||
*], a piece of nonfictional prose that is an independent part of a publication | |||
sub payemi($$) | |||
{ | |||
if($_ =~/""/ ||$_=~/""/) | |||
{ | |||
return -1; | |||
} | |||
$_=$_; | |||
if(!(/^+$/)) | |||
{ | |||
return -2; | |||
} | |||
if(not($_>0 && $_=~/^+$/)) | |||
{ | |||
return -3; | |||
} | |||
open(fh,"<loanemi.dat"); | |||
while($str=<fh>) | |||
{ | |||
chomp $str; | |||
@arr=split(":",$str); | |||
if($_ eq $arr) | |||
{ | |||
$status=1; | |||
} | |||
} | |||
if(not($status=1)) | |||
{ | |||
return -4; | |||
} | |||
close fh; | |||
open(fh,"<loanemi.dat"); | |||
while($str=<fh>) | |||
{ | |||
chomp $str; | |||
@arr=split(":",$str); | |||
if($_ eq $arr and $arr==0) | |||
{ | |||
$status1=1; | |||
} | |||
} | |||
if($status1==1) | |||
{ | |||
return -5; | |||
} | |||
close fh; | |||
open(fh,"<loanemi.dat"); | |||
while($str=<fh>) | |||
{ | |||
chomp $str; | |||
@arr=split(":",$str); | |||
if($_ eq $arr ) | |||
{ | |||
$dueamount=$arr; | |||
$intrest=$arr; | |||
$tenure=$arr; | |||
} | |||
} | |||
close fh; | |||
$interestformonth=$dueamount*($intrest/12*100); | |||
$emitobepaid=$interestformonth+($dueamount/$tenure); | |||
if($_>$emitobepaid) | |||
{ | |||
return -6; | |||
} | |||
$dueamount=$dueamount-($_-$interestformonth); | |||
if($dueamount<0) | |||
{ | |||
$dueamount=0; | |||
} | |||
open(fh,"<loanemi.dat"); | |||
@arr=<fh>; | |||
close fh; | |||
print "@arr"; | |||
foreach $i (@arr) | |||
{ | |||
@arr1=split(":", $i); | |||
if($_ eq $arr1) | |||
{ | |||
print "\nin if"; | |||
print "\n$arr1:$arr1:$arr1:$arr1:$arr1"; | |||
$arr1=$dueamount; | |||
$arr1=$arr1-1; | |||
print "new values:$arr1,$arr1"; | |||
$str="$arr1:$arr1:$arr1:$arr1:$arr1"; | |||
print "\nString: $str"; | |||
@arr=$str; | |||
} | |||
else | |||
{ | |||
@arr=$i; | |||
} | |||
$j++; | |||
} | |||
print "\nnew array: @arr"; | |||
open(fh,"+>loanemi.dat"); | |||
print fh @arr; | |||
close fh; | |||
return $dueamount; | |||
} | |||
$a=payemi('C1005',500); | |||
print "\n$a";*], a piece of nonfictional prose that is an independent part of a publication | |||
*], the predecessor to the current United States Constitution | *], the predecessor to the current United States Constitution | ||
*], the regulations governing a company, used in India, the United Kingdom and other countries | *], the regulations governing a company, used in India, the United Kingdom and other countries | ||
Line 54: | Line 180: | ||
] | ] | ||
] | ] | ||
hi fsds fs sdf sd fsd fds sd f s |
Revision as of 08:13, 24 January 2013
For the Misplaced Pages guidelines, see Misplaced Pages:What is an article?, Misplaced Pages:Good articles and Misplaced Pages:Featured articles. If you arrived here by clicking a link in sample code or a sample template, chances are the template has no connection with this article and the link was simply used as a stand-in for something else.Article may refer to:
- Article (European Union), articles of treaties of the European Union
- Article (grammar),
sub payemi($$) { if($_ =~/""/ ||$_=~/""/) { return -1; } $_=$_;
if(!(/^+$/)) { return -2; } if(not($_>0 && $_=~/^+$/)) { return -3;
} open(fh,"<loanemi.dat"); while($str=<fh>) { chomp $str; @arr=split(":",$str);
if($_ eq $arr) { $status=1; } } if(not($status=1)) { return -4; }
close fh;
open(fh,"<loanemi.dat");
while($str=<fh>)
{
chomp $str;
@arr=split(":",$str);
if($_ eq $arr and $arr==0) { $status1=1; } } if($status1==1) { return -5; }
close fh;
open(fh,"<loanemi.dat"); while($str=<fh>) { chomp $str; @arr=split(":",$str);
if($_ eq $arr ) { $dueamount=$arr; $intrest=$arr; $tenure=$arr; } }
close fh;
$interestformonth=$dueamount*($intrest/12*100); $emitobepaid=$interestformonth+($dueamount/$tenure);
if($_>$emitobepaid) { return -6;
}
$dueamount=$dueamount-($_-$interestformonth); if($dueamount<0) { $dueamount=0; }
open(fh,"<loanemi.dat"); @arr=<fh>; close fh;
print "@arr"; foreach $i (@arr) {
@arr1=split(":", $i);
if($_ eq $arr1) { print "\nin if"; print "\n$arr1:$arr1:$arr1:$arr1:$arr1"; $arr1=$dueamount; $arr1=$arr1-1; print "new values:$arr1,$arr1"; $str="$arr1:$arr1:$arr1:$arr1:$arr1"; print "\nString: $str"; @arr=$str;
} else { @arr=$i; } $j++; } print "\nnew array: @arr"; open(fh,"+>loanemi.dat"); print fh @arr; close fh;
return $dueamount; } $a=payemi('C1005',500);
print "\n$a";*Article (publishing), a piece of nonfictional prose that is an independent part of a publication
- Articles of Confederation, the predecessor to the current United States Constitution
- Articles of association, the regulations governing a company, used in India, the United Kingdom and other countries
- Articles of Incorporation and Articles of Organization, the U.S. equivalents
- Articles of clerkship, see articled clerk
- Articles of Faith, sets of beliefs usually found in creeds
- "Articles", a song from Beowülf's 1993 album Un-Sentimental
- RDS-1, the Soviet Union's first atomic test device, code-named "the article"
See also
- Article One (disambiguation)
- Article Four (disambiguation)
- All pages with titles beginning with Article
- All pages with titles beginning with Articles
- Artical (disambiguation)
If an internal link led you here, you may wish to change the link to point directly to the intended article.
hi fsds fs sdf sd fsd fds sd f s
Category: