하나 또는 두 개의 전자 메일 주소가 쉼표로 구분 된 스칼라 (테이블의 열)가 있습니다. 나쁜/오래된 이메일 주소와 뒤에 오는 쉼표 (예 : )를 제거하는 데 필요한 이들 기록 중 일부는 '[email protected], [email protected]'또는 'jsmith @ wellingent.com, mjones @ wellingent.com'과 같은
use strict;
use warnings;
sub maximum_value {
my @array = @_;
my @array1 = shift(@_);
my @array2 = push(@_, 0);
print "@array\n";
print "@array1\n";
print "@array2\n
가정하자 내가 가진 내가 use strict;
my $sub_name = 'foo';
을 정의 foo (또는 ::foo, 또는 main::foo 당신이 선호하는 경우) 및 함수 간접적으로 "$sub_name에 저장된 이름의 함수"로 foo을 호출하고 싶습니다. 이 예제에서 호출은 인수로 1, 2, 3을 인수로 전달해야한다고 가정합니다. main::의
나는 항상 작동하지만, 파일을 삭제하지 않는 갑자기 무언가가 깨진 오래된 펄 스크립트를 가지고 있습니다. -rw-r--r-- 1 nobody uworld 6 Dec 03 11:15 shot32.file
위의 파일을 삭제하는 명령은 내가 $의 shotfile이 shot32.file입니다 확인했다 펄 스크립트 `rm $shotfile`;
내부이며 올
배열에 @atom이 있다고 가정 할 수 있습니다. 나는 그 배열에 $a, $b, $c (잔여 물 이름, 사슬 및 잔기 번호를 각각 pdb 파일에서 가져온) 세 가지 요소를 푸시합니다. 예를 들어, $b 값을 AAAAAAAAA, BBBBBBB, CCCCCCC있다. $b 변경 될 때마다 배열을 비우는 방법? $ A $ B 형 $의 C 가정 배열은 다음과 같다,
배열 배열을 서브 루틴으로 전달하여 명령을 다른 디렉토리에서 병렬로 실행할 수있는 서브 루틴을 만들려고합니다. 기본적으로 각 첫 번째 색인은 각 명령 - 디렉토리 쌍에 대한 것입니다. 두 번째 색인에는 디렉토리와 명령 자체라는 두 가지 변수가 있습니다. 예를 들어 그러나 my @commands;
$commands[0][0] = 'tmp1';#directo
HTML 페이지를 받고, 블록을 찾고, 내 문자로 텍스트를 묶는 방법이 있습니까? 예를 들어 다음과 같은 HTML을 제공 : <html>
<head>
<title>Appleseed Farm</title>
</html>
<body>
<table>
<tr>
<td>Col1</td>
<td>Col2</td>
에 있습니다. Perl 프로그래밍 데이터베이스 연결을 위해 DBI 모듈과 함께 MySQL을 사용합니다. 내 코드에서 Issuing rollback() due to DESTROY without explicit disconnect() of
DBD::mysql::db handle db=db;ip=X.X.X.X; at /code/save2db.plx line
아래의 쉘 스크립트를 개발하여 파일 이름의 중복 된 부분을 찾아서 삭제했습니다. 마찬가지로 Perl 스크립트 텍스트 처리에는 시간이 덜 걸리기 때문에 Perl 스크립트를 준비해야합니다. #!/bin/bash
for i in `ls -t *xml|awk 'BEGIN{FS="_"}{if (++dup[$1] >= 2) print}'`;
do
rm $i
d
좋아, 데비안 9 (스트레치)를 실행하는 깨끗한 가상 머신입니다. 데비안 패키지 시스템에서 Dancer2을 설치했습니다. 버전 0.204002를 실행 중입니다. Dancer2 소프트웨어는 최신 버전이 0.205002라는 것을 알려줍니다. 데비안 dpkg 종속성을 손상시키지 않으면 서 데비안 시스템의 Perl 모듈을 최신 버전과 최고의 버전으로 업그레이드하는