aanoaa

#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Usage;
use Getopt::Long;
use File::Slurp 'slurp';

my %options;
GetOptions(\%options, "--show", "--help");

aanoaa

#!/usr/bin/perl

# gitweb - simple web interface to track changes in git repositories
#
# (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
# (C) 2005, Christian Gierke
#
# This program is licensed under the GPLv2

use strict;

aanoaa

#!/usr/bin/env perl
my @content = split /\n/, join '', <DATA>;
print $content[int(rand(scalar @content))], "\n";
__DATA__
de-misunderestimating
XUPPERNAMEX, WE WENT OVER THIS. EXPANDTAB.
XUPPERNAMEX, WE WENT OVER THIS. C++ IO SUCKS.
Some shit.
add actual words
I CAN HAZ COMMENTZ.

aanoaa

linters:
  fast: true
  enable:
    ## https://golangci-lint.run/usage/linters/#enabled-by-default
    - errcheck    # checks unchecked errors
    - gosimple    # simplify code
    - govet       # examines Go source code and reports suspicious constructs
    - ineffassign # detect unused assign
    - staticcheck # cover Go vet edge cases
    - typecheck   # type-checks Go code

aanoaa

import React from "react"
import { graphql } from "gatsby"

import Layout from "../components/layout"
import SEO from "../components/seo"

const Product = ({ data }) => (
  <Layout>
    <SEO title={data.wordpressWpProduct.title} />
    <h1>{data.wordpressWpProduct.edges[0].title}</h1>

aanoaa

hdiutil

case-sensitive 한 file system disk image 를 만들고, 이를 mount 해서 사용

root 권한이 필요없음

# reference: man hdiutil
# hdiutil -- manipulate disk images (attach, verify, create, etc)
# create <size_spec> <image>

create a new image of the given size or from the provided data. If image already

aanoaa

# https://github.com/kraih/mojo/blob/master/.perltidyrc
-pbp # Start with Perl Best Practices
-w # Show all warnings
-iob # Ignore old breakpoints
-l=79 # 79 characters per line
-mbl=2 # No more than 2 blank lines
-i=4 # Indentation is 4 columns
-ci=4 # Continuation indentation is 4 columns
-vt=0 # Less vertical tightness
-sbt=2 # High square bracket tightness

aanoaa

;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

color-theme-solarized-20130307.1350
erc-hl-nicks-20130114.1648

aanoaa

(setenv "PERL5LIB" (concat "./lib:" (getenv "PERL5LIB")))
(setenv "PATH" (concat (getenv "HOME") "/.plenv/shims:" (getenv "HOME") "/.plenv/bin:" (getenv "PATH")))
(setq exec-path (cons (concat (getenv "HOME") "/.plenv/shims") (cons (concat (getenv "HOME") "/.plenv/bin") exec-path)))
(require 'plenv)    ; <M-x> package-install plenv
(plenv-global "5.18.1")

(defun flymake-perl-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy
                     'flymake-create-temp-with-folder-structure))
         (local-file (file-relative-name

aanoaa

'자기소개-서론-본론-마무리' 형식을 지키면 됩니다.

emacs 에서의 cperl-mode 와 flymake

flymake 가 뭐냐면, 편집하고 있는 버퍼의 파일을 컴파일하고 에러를 현재 버퍼에 표시해주는 emacs 의 유용한 도구 입니다.