受注Only
#/usr/bin/perl use strict; use warnings; my $JUCHU = 1; my $NICE_PROJECT = 1; my $BAD_PROJECT = 1; my $FOR_OUR_BOSSES = 50_000; my $our_salary = 200_000; while ( $JUCHU ) { $our_salary += 10_000 if $NICE_PROJECT; $our_salary -= 10_000 if $BAD_PROJECT; $our_salary -= $FOR_OUR_BOSSES; pay( $our_salary ); } sub pay { print 'my salary is ' . $our_salary ; }