[PERL] 동일 열의 연속값의 누적합과, 그 열의 누적값중에서의 최대값 산출하기

#!/usr/bin/perl
 
# 샵은 주석
# 설치 방법 : <a href="http://learn.perl.org/first_steps/
 
#" rel="nofollow">http://learn.perl.org/first_steps/
 
#</a> 첫번째 코드
use 5.010;						# 버전
use strict;						# 문법 오류 체크
use warnings;						# 오류 알림
 
 
# @list = ("abc", "def", "123");			리스트
# %hash = (('test', "hello"), ('verify', 123));		해시
 
# <a href="http://cafe.naver.com/q69/120699?social=1
#" rel="nofollow">http://cafe.naver.com/q69/120699?social=1
#</a> while(<>)
 
# 2번 입력 엔터를 2번 반복.
my (@buf,$sum,%sum,@sum);				# 변수 선언	<a href="http://cafe.naver.com/perlstudy/20
 
#" rel="nofollow">http://cafe.naver.com/perlstudy/20
 
#</a> 리스트에 값 넣고 빼는걸 몰라서. 그냥 한줄 배열로 사용함. ㅡ_ㅡ;;
my $max		= 2;					# 한줄에 입력되는 갯수
my $input_cnt	= $max * 2;				# 입력된 총 갯수. 2줄
my @list;
my %hash;
 
my $cnt = 0;
sub fn1(@)
{
	my $t = 0;
#	my $input = $_[0];				# 뭔지 모름
 
	while(<>)
	{
#		@buf = <STDIN>;
#		chomp( @buf = <STDIN> );
 
#		@buf = map { ($_== 0)?1:0 } split;	# 입력 받는다 <a href="http://blog.daum.net/jchern/13756909
" rel="nofollow">http://blog.daum.net/jchern/13756909
</a>		@buf = split;				# 입력 받는다 <a href="http://blog.daum.net/jchern/13756909
" rel="nofollow">http://blog.daum.net/jchern/13756909
</a>							# @buf 리스트에 받는다
#		print ((@buf),"\n"); 			# 출력
		for (my $j=0; $j<=$#buf; $j++)		# j는 0부터 $#buf 까지. 받는다.
							# $# 는 @buf 리스트에 마지막 인덱스다. <a href="http://blog.naver.com/kbsps?Redirect=Log&logNo=120027753274
" rel="nofollow">http://blog.naver.com/kbsps?Redirect=Log&logNo=120027753274
</a>		{
			if ($buf[$j] == 1)		# 1이면 $sum{$j} 증가
			{
#				$sum{$j} += 1;
			}
			elsif ($buf[$j] == 0)		# 0이면 $sum{$j} 0
			{
#				$sum{$j} = 0;
			}
#			print (($sum{$j})," "); 	# 출력
#			@list[$j][$t] = $sum{$j};
#			@list = (@list, $buf[$j]);	# 이거 때문에 값이 중복 들어갈 수 있으니 주의하자
 
			$sum{$j} = $buf[$j];
 
#			print (@list); 			# 출력
#			print (($buf[$j])," "); 	# 출력
#			print (($sum{$j})," "); 	# 출력
#			$list{$cnt} = $buf[$j];
			push(@list, $buf[$j]);		# <a href="http://blog.naver.com/illi0001?Redirect=Log&logNo=140118574584
" rel="nofollow">http://blog.naver.com/illi0001?Redirect=Log&logNo=140118574584
</a>			$cnt += 1;
		}
 
#		print ("total = ", ($t), "\n"); 	# 출력
		$t += 1;
 
		if($t == $max)				# 0 1 합계 2번
		{
#			last;				# 종료 문구
		}
		last if ($t == $max);
	}
}
fn1();
 
 
print ("입력 완료\n");
# exit;
 
 
$cnt = 0;
sub fn2(@)
{
	my $t = 0;
	my $r = 0;
 
#	인수로 명령 줄에 전달 된 실제 모든 파일
#	real all files passed by command line as a arguments
#	while(<>)					# <a href="http://blog.naver.com/miniwikibook?Redirect=Log&logNo=60137757521
" rel="nofollow">http://blog.naver.com/miniwikibook?Redirect=Log&logNo=60137757521
</a>	while( $cnt < $input_cnt )
	{
#		for (my $j=0; $j<$max; $j++)		# j는 0부터 $#buf 까지. 받는다.
							# $# 는 @buf 리스트에 마지막 인덱스다. <a href="http://blog.naver.com/kbsps?Redirect=Log&logNo=120027753274
" rel="nofollow">http://blog.naver.com/kbsps?Redirect=Log&logNo=120027753274
</a>		{
#			$r = pop(@list);
			print ($list[$cnt], " ", $cnt, " ");	# 출력
#			shift(@list);
			$cnt += 1;
		}
		print ("\n");
 
		if($cnt < $max - 1)			# 0 1 합계 2번
		{
			exit;			# 종료 문구
		}
#		$t += 1;
#		last if ($t == $max);
	}
}
fn2();
 
 
print ("입력값/ 카운터 - 출력 완료\n");
 
 
 
$cnt = 0;
sub fn3(@)
{
	my $t = 0;
	my $r = 0;
 
	open (WFILEHANDLE, ">test.txt") or die ("Cannot open test.txt .\n");
 
#	인수로 명령 줄에 전달 된 실제 모든 파일
#	real all files passed by command line as a arguments
#	while(<>)					# <a href="http://blog.naver.com/miniwikibook?Redirect=Log&logNo=60137757521
" rel="nofollow">http://blog.naver.com/miniwikibook?Redirect=Log&logNo=60137757521
</a>	while( $cnt < $input_cnt )
	{
#		for (my $j=0; $j<$max; $j++)		# j는 0부터 $#buf 까지. 받는다.
							# $# 는 @buf 리스트에 마지막 인덱스다. <a href="http://blog.naver.com/kbsps?Redirect=Log&logNo=120027753274
" rel="nofollow">http://blog.naver.com/kbsps?Redirect=Log&logNo=120027753274
</a>		{
#			$r = pop(@list);
			print WFILEHANDLE ($list[$cnt], " ", $cnt, " ");	# 출력
#			shift(@list);
			$cnt += 1;
		}
		print WFILEHANDLE ("\n");
 
		if($cnt < $max - 1)			# 0 1 합계 2번
		{
			exit;			# 종료 문구
		}
#		$t += 1;
#		last if ($t == $max);
	}
	close(WFILEHANDLE);
}
fn3();
 
 
print ("파일 저장 완료\n");
 
 
 
# <a href="http://pc-to-mac-changer.blogspot.kr/2012/12/perl-file-test-operators.html
#" rel="nofollow">http://pc-to-mac-changer.blogspot.kr/2012/12/perl-file-test-operators.html
#</a> <a href="http://www.comp.leeds.ac.uk/Perl/filehandling.html
#" rel="nofollow">http://www.comp.leeds.ac.uk/Perl/filehandling.html
#</a> <a href="http://www.cs.cf.ac.uk/Dave/PERL/node70.html
#" rel="nofollow">http://www.cs.cf.ac.uk/Dave/PERL/node70.html
#</a> <a href="http://www.cs.cf.ac.uk/Dave/PERL/node72.html#SECTION001032000000000000000
#" rel="nofollow">http://www.cs.cf.ac.uk/Dave/PERL/node72.html#SECTION001032000000000000000
#</a> <a href="http://sunshowers.tistory.com/51
 
 
 
#" rel="nofollow">http://sunshowers.tistory.com/51
 
 
 
#</a> <a href="http://nobless_05.blog.me/50095113724
$cnt" rel="nofollow">http://nobless_05.blog.me/50095113724
$cnt</a> = 0;
sub fn4(@)
{
	my $file = "test.txt";
	my $line;
	my $fh;
 
#	open ($fh, "<test.txt") or die ("Cannot open test.txt .\n");
	open ($fh, "<", $file) or die ("Cannot open test.txt .\n");
 
	while( $line=<$fh> )
	{
		print $line;
	}
	close($fh);
}
fn4();
 
 
print ("파일 보기 완료\n");
 
 
//출력 결과
1 2
3 4
입력 완료
1 0
2 1
3 2
4 3
입력값/ 카운터 - 출력 완료
파일 저장 완료
1 0
2 1
3 2
4 3
파일 보기 완료