Blog

Posted on

웹 (연변 – 한국) codes

business_type_update.pl

#!/usr/bin/perl

use strict;
use warnings;

# Input file
my $input_file = 'business_type_original.txt';

# Output file
my $output_file = 'business_type_replaced.txt';

# Open the input file for reading
open my $input_fh, '<', $input_file or die "Cannot open input file '$input_file': $!";

# Open the output file for writing
open my $output_fh, '>', $output_file or die "Cannot open output file '$output_file': $!";

# Process each line of the input file
while (my $line = <$input_fh>) {
    # Replace "이삿짐" with "치과" in the line
    $line =~ s/이삿짐/회계 사무실/g;

    # Write the modified line to the output file
    print $output_fh $line;
}

# Close the input and output files
close $input_fh;
close $output_fh;

print "Replacement complete. Results saved in '$output_file'\n";

sqlitecodes.txt

select '"' || field1 || '",' from business_type_replaced order by field1 desc

moving_seoul.html

<!DOCTYPE html>
<html>
<head>
    <title>Open Search Words in Reverse Order</title>
</head>
<body>
    <script>
        var searchWords = [
"이삿짐 중랑구 서울특별시",
"이삿짐 중구 서울특별시",
"이삿짐 종로구 서울특별시",
"이삿짐 은평구 서울특별시",
"이삿짐 용산구 서울특별시",
"이삿짐 영등포구 서울특별시",
"이삿짐 양천구 서울특별시",
"이삿짐 송파구 서울특별시",
"이삿짐 성북구 서울특별시",
"이삿짐 성동구 서울특별시",
"이삿짐 서초구 서울특별시",
"이삿짐 서대문구 서울특별시",
"이삿짐 마포구 서울특별시",
"이삿짐 동작구 서울특별시",
"이삿짐 동대문구 서울특별시",
"이삿짐 도봉구 서울특별시",
"이삿짐 노원구 서울특별시",
"이삿짐 금천구 서울특별시",
"이삿짐 구로구 서울특별시",
"이삿짐 광진구 서울특별시",
"이삿짐 관악구 서울특별시",
"이삿짐 강서구 서울특별시",
"이삿짐 강북구 서울특별시",
"이삿짐 강동구 서울특별시",
"이삿짐 강남구 서울특별시"
        ];

        for (var i = 0; i < Math.min(25, searchWords.length); i++) {
            window.open("https://www.google.com/search?q=" + encodeURIComponent(searchWords[i]), "_blank");
        }
    </script>
</body>
</html>

firefox_02.pl

use strict;
use warnings;

# Initialize an array to store extracted content
my @extracted_content;

# Process each HTML file (1.html to 25.html)
for my $file_number (1..25) {
    my $input_file = "${file_number}.html";

    # Open the current input file for reading
    open my $input_fh, '<', $input_file or warn "Cannot open input file '$input_file': $!";

    # Read each line and look for URLs and +82 content
    while (my $line = <$input_fh>) {
        chomp $line;

        # Extract URLs matching /https:\/\/www\.google\.com\/maps\/place/
        if ($line =~ /https:\/\/www.google.com\/maps\/place/) {
            # Remove leading '<' and trailing '>'
            $line =~ s/^<(.+)>$/$1/;
            push @extracted_content, "$input_file\t$line";  # Use a tab character as the delimiter
        }

        # Extract content starting with +82 and going to the end of the line
        if ($line =~ /\+82(.+)/) {
            my $plus82_content = "+82$1";  # Include +82 in the extracted content
            push @extracted_content, "$input_file\t$plus82_content";  # Use a tab character as the delimiter
        }
    }

    # Close the current input file
    close $input_fh;
}

# Save the extracted content to a file
my $output_file = 'firefox_02.txt';
open my $output_fh, '>', $output_file or die "Cannot open output file '$output_file': $!";
foreach my $entry (@extracted_content) {
    print $output_fh "$entry\n";
}
close $output_fh;

print "Extraction complete. Extracted content is saved in '$output_file'\n";

firefox_website_02.pl

use strict;
use warnings;

# Initialize variables to store extracted URLs
my @google_maps_urls;

# Process each HTML file (1.html to 25.html)
for my $file_number (1..25) {
    my $input_file = "${file_number}.html";

    # Open the current input file for reading
    open my $input_fh, '<', $input_file or warn "Cannot open input file '$input_file': $!";

    my $previous_line = '';
    my $current_line = '';
    my $extracting = 0;

    # Read each line and look for URLs
    while (my $line = <$input_fh>) {
        chomp $line;

        # Check if the current line contains "+82"
        if ($current_line =~ /\+82/) {
            # Check if the next line contains "Website"
            if ($line =~ /Website/) {
                $extracting = 1;
                push @google_maps_urls, "$input_file, $current_line";
            }
        }

        # Continue extracting 3 more lines if we're in an extraction state
        if ($extracting) {
            push @google_maps_urls, "$input_file, $line";
            if (@google_maps_urls % 4 == 0) {
                $extracting = 0;
            }
        }

        # Store the current line for the next iteration
        $previous_line = $current_line;
        $current_line = $line;
    }

    # Close the current input file
    close $input_fh;
}

# Save the extracted URLs to a file
my $output_file = 'firefox_website_02.txt';
open my $output_fh, '>', $output_file or die "Cannot open output file '$output_file': $!";

foreach my $url (@google_maps_urls) {
    print $output_fh "$url\n";
}

# Close the output file
close $output_fh;

print "Extraction complete. Extracted 4 lines (including +82 and Website) are saved in '$output_file'\n";

sqlitecodes.txt

82.txt

SELECT
    field1, field2,
    CASE
        WHEN INSTR(field2, '+82') > 0 THEN
            SUBSTR(field2, INSTR(field2, '+82'))
        ELSE
            field2
    END AS extracted_value
FROM firefox_website_02;

http.txt

SELECT
    extracted_value, field1, field2,
    CASE
        WHEN field2 LIKE '<%' AND field2 LIKE '%>' THEN
            SUBSTR(field2, INSTR(field2, '<') + 1, INSTR(field2, '>') - INSTR(field2, '<') - 1)
        WHEN field2 LIKE '<%' THEN
            'Starts with <, but missing >'
        ELSE
            'Does not start with <'
    END AS extracted_value
FROM firefox_website_02_PHONE;
Posted on

Fall 2023 ~ ..

일년 푹 쉬면서 $1.6万 더 비축하고 확고한 장래 계획을..

  • Able-Now ~$45,000 2023年말
  • CsamiGroup.com 541511 Divi
  • – 연변 App 全 美州 업소록 ready
  • BookkeeperJohn.com 541211
  • – QBO EA
  • JinuAcademy.com 611691 -QBO, -Math
  • – Cengage Unlimited
  • – LifterLMS
  • LATimes 月$2.99 through VPN & Speechelo
  • 561510 EBS / Economist / National Geo.
  • GRE General / Math Subject
  • M.Ed Credential, UAF Admission
  • 毎週 1 ~ 2번 Sauna / Swim, Grocery Shuttle
Posted on

2026 09 18

(213) 386-2718

Rainbow Carpet Cleaning

전에 가입한 손님이었음. 가격을 좀 나춰 달라고 해서, 월 $35에 제작들어가기로 했음 (9/18/2026).

—

(213) 386-3535

족발집

웹 사이트 없으나 사장님 결정인데, 지금 부재 중 (9/18/2026).

—

(213) 386-4007

공인회계사 사무실

웹 사이트 없으나, 담당자 부재 중 (9/18/2026).

—

(213) 386-3060

BW CPA Group (이광호 CPA)

웹 사이트 없으나 이광호 사장과 통화해야 한단다 (9/18/2026).

—

(213) 703-9192

missed call 보고 call back 해 왔음.

변호사 사무실

웹 사이트 없으며 선뜻 관련 정보 텍스트로 보내라고 (818) 693-7126 넘버 줬음.

1004site.com 링크 텍스트로 보냈음 (9/18/2026).

—

Posted on

2026 09 17

(213) 385-9900

돈까스 하우스

웹 사이트 없는데 아들이 관리, 내 번호 적으면서 아들에게 전화 하라고 하겠단다. 본인은 생각 좀 해 봐야 한다고 했음 (9/17/2026).

—

(213) 386-0114

보험 비지니스

웹 사이트 없으나 운전 중이니 나중에 전화 하겠다는 중년 남성 (9/17/2026).

—

(213) 386-1990

hk.chong@gmail.com

Law Office of Edward Chong

전화 받은 아가씨가 웹 사이트 없으며 상세 내용을 이멜로 보내라고 이멜 주소 줬음 (9/17/2026).

—

(213) 386-2313

Steven Lee, CPA talked.

관심 보이며 CPA.1004site.com 보고 관심 있으면 사장님과 상의 후, 연락하겠다고 내 번호 받아 적었음 (9/17/2026).

웹 사이트 필요 없단다 (9/18/2026).

—

(213) 386-2424

이삿짐

웹 사이트 없으며 관심 보이는 전화 받은 여인이 사장님께 말씀 드려 보겠단다 (9/17/2026).

넘버원 이삿짐이 동생이란다. 거의 가입 했으며 월요일 (9/21/2026) 에 남자 사장과 다시 통화 하기로 했음 (9/18/2026).

—

Posted on

2026 09 16

(213) 385-1881

웹 사이트 없으나 사장님 결정인데, 12시 이후에 통화 가능하단다 (9/16/2026).

필요 없단다 (9/16/2026).

—

(213) 385-2585

(562) 328-3365 (cell)

missed call 보고 return call 해 왔음 (9/16/2026).

국제 이주 공사.

Mrs. 장. 40년 된 비지니스인데 기존 손님 많고 알라스카에도 손님 있다고 함. 웹 사이트 만들어 두면 고객 확보 및 관리에 많은 도움이 된다고 했음 (9/16/2026).

—

Posted on

16.html

[명심 보험] “풍부한 경험 갖춘 시니어 전문 보험사”

▲OC 한인회관 본사: (714)595-4000

▲부에나팍 사무실: (714)333-5161

▲LA 사무실: (626)698-8107

웹 사이트 없으나 사장님 결정인데, 10시반 이후에 사장님이 OC 오피스로 온단다 (9/15/2026).

여사장과 통화. 웹 사이트이 필요 없단다 (9/15/2026).

—

Posted on

2026 09 15

(714) 539-6910

(213) 384-6910

기독료 법률 센터.

전화 받은 중년 남성이 우선 (714) 539-6910으로 제공 서비스를 보내면 보고 결정하겠단다 (9/15/206).

1004site.com 링크, 텍스트로 바로 보냈음 (9/15/2026).

당분간은 웹 사이트 제작 계획 없고 필요하게 되면 연락드릴께요, 함 (9/16/2026).

—

Posted on

2026 09 11

(213) 384-1189

CPA 사무실

전화 받은 젊은 여인이 웹 사이트 없으나, 현재 택스 시즌이라서 바쁘니 10월 15일 이후에 연락하면 CPA.1004site.com 고려해 보겠단다 (9/11/2026).

—

(213) 384-2288

김 기호, 펜 덴탈.

웹 사이트 없는 듯하니 한번 연락해 볼 것 (9/11/2026).

웹 사이트 제작 계획 없단다 (9/15/2026).

—

(213) 384-2424

오렌지 이삿짐.

714-636-2424 이 번호로 텍스트 하란다. 정은정 사모님 통화. 어떤 업체에 웹 사이트 제작 의뢰했는데 돈만 내고 진척이 안 되는 상황이란다. 남편이 결정해야 한단다. 정은정씨는 즉시 관심 보임 (9/11/2026).

서치 엔진 상단에 떠서 이사 문의 들어 오게 하는 서비스에 상단한 관심을 보임. 넘버원 이삿짐, 붕붕 이삿짐, 금성 이삿짐 등, 구글에 뜨는 것 확인하고 남편에게 얘기하겠단다. 현재 웹 사이트 제작에 $200~$300 경비 들었는데 마무리가 안 되고 붕 떠 있는 상태란다 (9/12/2026).

남편, 사장님과 통화해야 하는데, 오후 늦게 통화 가능하단다 (9/15/2026).

Brian 정 사장과 통화. 생각해 보고 연락하겠단다 (9/15/2026).

—

Posted on

14.html

[제일녹용건재상사] “고품질 약재로 병오년 최고 건강 선사”

▲ 문의:

(213)380-4499

▲ 주소: 2852 W. Olympic Blvd, LA

사장인 듯한 중년 남성이 웹 사이트 없으며, 내 번화 보관하고 있다가 연락하겠다고 좋게 얘기함 (9/10/2026).

—

[천종산삼] 시그니처 천종산삼… 연말 맞이 빅 세일

▲ LA 본점:

(213)388-1234, 3908 Wilshire Blvd. LA (구 대륙백화점)

▲ 부에나팍 지점:

(562)902-1235, 5300 Beach Blvd. #118, Buena Park.

사장님이 현재 산에 있으며, 옛날에 웹 사이트 있었으나 효과가 없어서 차단했단다. 내 가격이면 관심 있을 주 있으니 나중에 사장과 통화해 볼 것 (9/10/2026).

—

Posted on

2026 09 10

(213) 383-8304

승혜 서 CPA.

accounting@seoncompany.com – Kelly talked. 한글말 구사함. 세금 보고 때문에 당분간 바쁘니 우선 이멜로 소개 보내란다. 이멜 보고 필요하면 연락하겠단다. 웹 사이트 없음 (9/10/2026).

—

(213) 383-8338

아들이 웹 사이트 만들었는데, 월 $45에 모든 것 포함이라고 하니, 관심 보이며 편한 시간에 연락하겠다는 젊은 여인 (9/10/2026).

—

(213) 383-8877

키슬리 약국 (Kingsley Pharmacy).

전화 받은 젊은 남성이 웹 사이트 없으나, 사장님 판단인데 지금 부재 중이란다 (9/10/2026).

—

(213) 383-9665

CPA 사무실.

웹 사이트 없으며 생각해 보고 연락하겠다는 젊은 여인 (9/10/2026).

—

Posted on

13.html

[남석환 안과] ‘알콘’ 차세대 백내장 수술 시스템… 한인타운 최초로 구축

▲ 문의:

(213) 368-0388

▲ 주소: 4278 W. 3rd St., LA

웹 사이트 없으나, 본인이 담당자가 아니라서 답할 수 없단다. 또 연락한다고 했음 (9/9/2026).

—

Posted on

2026 09 09

(213) 383-4000

병원.

staff, Rachel 한 talked. 관심 보이며 상의 후에 연락하겠단다 (9/9/2026).

—

(213) 383-4499

전화 받은 젊은 여인이 사장님 없다며 연락드릴께요, 하고 끊었음. 웹 사이트 없음 (9/9/2026).

—

(213) 383-4724

회계 사무실.

웹 사이트 없으나 결정권이 없으니 나중에 다시 통화, 담당자와 얘기하란다 (9/9/2026).

—